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® In riferimento il nuovi modelli 
ConuiHMkìiif A possibile comprarti 

la posa Ibi Ittà onda potar 

risparmiare? 

(Fioro Guastato)) 

G Per prima cosa NON comprare MAI 
un computer m paesi m cui. come in 
America , gti stancarti stano diversi dei 
nostri. Infatti in Amence abbiamo ie ten- 
sione di 1 15 Volt ed una frequenze di 60 
Hertz, mentre fo standard europeo ed 
italiano è dt 220 Vote 50 Hertz. Questo 
motivo e te diverse trasmissione video, 
HTSC in America e PAL in Europe, sono 
valide ragioni per non comprare M com- 
puter in Amence; ciò che risparmi to 
spenderesti per apportare Jt modifiche 
necessarie per poterlo uOtoare tri 
Italia. 


• Sul numero pre ce d en t e dt Com- 
modore mono apparai perecchJ ed 
Interessantissimi articoli aul date* 


ghore. Scherzi a parte, i due programmi 
m questione sono vendasi™ per dò 
che intendi fare ; quindi rivolgiti ad una 
moneena per la scelte di «no o deir atiro 
(la famosa scelta testa o croce), 


• Sono un Infelice possessore di 
un Commodore Si; non che aia una 
pessima macchina, ma la tartara 
mi fa contìnuamente dannale. Al- 
cuni tasti non funzionano, altri si 
“Incastrano 11 , Intonimi digitate un 
programma è quasi i mp os sibile . 
Cosa mi consigliata? 

Complimenti par la rivista. 

( Francesco Aspromonte* 

G Per risolvere questo problema ti 
consistiamo di rivolgerti ed un centro 
assistenze per la sostituzione delle te- 
stiera o per la sue pulizia t In quanto 
anche questo fatto ne può pregiudicare 
il funzionamento. 


• E v possibile trasferire I mas se- 
quenziali dal C-1« ai C-M? Sa si, 
come? 

(Roderlo F#fTO) 

G Questo tipo tit trasferimento è possi- 
bile solamente se si possiede r unità di- 
sco, con te cassette al Amo grossi pro- 
blemi perché il tipo di registrazione è 
diverso tre t due computer 


• Vorrei sapere sa è possibile re- 
gistrare dir ettame n te la musica 
sull'uscita sud lo/video del CSC 

(Giorgio Ruttori) 

G F possibile coilegando t Fri 2 (mes- 
sa) e 3 (usata audio ) delio spinotto 
audtofvtdeo ad un normale amplificato- 
re audio 


• Dove si possono trovare I giochi 
reclamizzati sulle riviste 
americane? 


basa nel quali vengono menzionati 
anche programmi co me i The Ma- 
nager ad fi Superbe*#; vorrei corte- 
semente chiedere quali di questi 
due programmi mi conslgueresie 
di utilizzare per archiviare i miei 
dischi. 

(Alberto Manreno) 

C fn redazione già da tempo & sta 
svolgendo una guerre fredda su questo 
argomento e non scarno ancora nasciti e 
metterti <f accordo natia scelta del mé- 



• Ho visto sul numera ? di Com- 
modore “L'agenda telefonica auto- 
matica” di Ernesto tfdotl ed hoc er- 
ceto di digitarla, ma non riesco a 
farla girare. Vorrei chiedere se ave- 
te riscontrato errori e se potreste 
Indicarmeli. 

(Piero Castelii) 

n Sta nel prxygramma che nette scheda 
nond sono errori in quanto é sfarò lofio 
npefufamenf» provato. Cerca dt con- 
trollare meglio il programma ed anche 
la scheda, nella quale la qualità del relè 
è molto importante 


(Andrea Pasini) 

□ Solamente m Amence. Scherziamo, 
naturalmente ; li puùt trovare anche in 
negozi particolarmente riforniti. 


• Vorrei sapere sa esista S turbo 
per il drive? DI quanto io sveltisce? 

(Luca temati} 

G // programma turbo per H drive esi- 
ste : serve solamente per H caricamento 
veloce dei programmi. Non serve per la 
memorizzazione (come invece per f re- 
gistratore) La velocità dt caricamento 
viene aumentata di circa 6/ 7 volte 


*- Commodore 



Aneto su questo numero di Commodore vi 
presentarne una seria di Snrt di particolare Smurasse. 
Alcune sono state inviate da lettori che come voi si 
cimentano, appena possono, sul computer per 
acopnme 1 più reconditi Mgwti, 
E p proprio attraverso piccole curiosità. ap*goia>ure e 
notìzie Provi eh» siposaono oosfruài p r ogr am m i con 
carattansbetìe interessanti 
Olendo scoprite una Qualsiasi notizia che potrebbe 
essere utile a qualche altro lettore, servate' 
Sicuramente anche se a pnrna vista sembra banale 

può interessara. 

Elaborata ed inviate sempre i vostri programmi a. 

$peft Rivista COMMODORI 

rubrica Cornucopia 

firgtolo Coppa fi 
Viale Famagosta. 75 

20143 Milano 
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Auto. Paracch»» utfflty assolvono alla (Union» d sot- 
trard ad attività ripartivo • noiosa. 

Quando sc ri v ia mo un programma in linguaggio BA- 
SIC, dobbiamo anteporrà a daacun gn«po d isOuzionj 
il rispettivo numero d Nnaa. 

H listato che vi p ro pon ia mo, i nteramente aerino in 

linguaggio macchina, vi consentiràd ottenere la mne- 

razione automatica dai vostri programmi durante la loro 

-» 

n in i ih/ horiMB 

Dopo aver battuto n software ed averlo posto In ese- 
cuzione (Tarn Ite il comando RUN, potrete usufruir* del- 
l'utility rispettando le modalità d utilizzo prescritte. 

Per abilitare la routine à necessario digitare <-A 
seguito dal manero iniziale d linea e dell' In cremento 
des i derato, come ad Besmplo<-A200. log 06 porterà 
ad avere la numerazione a partire da 200 con Incre- 
mento d 100. 

Nei caso in cui dec i de ste d deabilitar» la routine, 
dovete sempi cementa dgitare <-. 

(Filippo Vasi) 


100 REM mtttttmtittt 
£00 REM s a 

300 REM * AUTO t 
400 REM * » 

300 REM «tmttttmtttt 
1110 DATA 189,11,14] ,8,3/183, 192,14 

1.9.3.98.32.1 13. 0. 6, £01 ,95,840 
,4,40,78,231 

1120 DATA 187,32,113,0,201,63,208,2 

43.32.113.0. 24.32.107.169.183, 
20,133,38 

1130 DATA 165,21,133,39,32,233,174, 
24,32,107,169,163,20,133,40,18 
3,21,133,41 

1140 DATA 169,129,141,2,3,169,192,1 

41.3.3.189.126.141.138.2.163.3 
9,133,99,163 

1130 DATA 38,133,39,162,144,36,32,7 

3.188.32.221.189.162.0. 169.1.1 
,240,9,157 

1160 DATA 0,2,32,210,233,232,206,24 
2,32,18,223,201,93,240,30,201, 
13,240,43 

1170 DATA 137,0,2,232,32,98,163,76, 

134.164.24.163.38.101.40.133.3 
8,163,39,101 


1160 DATA 41,133,33,76,73,192,169,1 
31,141,2,3,163,164,141,3,3,169 
,0,141,138 

1190 DATA 2,40,76,116,164,32,118,16 
3,76,134,164 
1200 t 
1210 t 

1220 PR1NTCHR*( 147) 

1230 SU-0 

1240 POR 1-1 70 170 
1250 READ A 
1260 SU«SU+A 
1270 POKE 49 131 + 1, A 
1280 ICXT 

1290 IF SUO 174 17 THEN PRINT’ERRORE 
•IO* 

1300 SYS49 152INEU 
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Renana. Questo programma sarà serve dubbio ud- 
lieaimo par I possessori d drive a floppy date. Watt può 
capitare la necessiti d mutare R nome d un dechello e 
dai rispettivo identificatore. 

il breve programma vi consentirà di effettuare l'ope- 
razione m maniera e etr ema mw nte semplice. 

Pope ever digitato e poeto in ees cu rione la routine, vi 
verranno richiesti nell ordine II nuovo nome ed identifi- 
catore che avete intenzione d assegnare ai due ele- 
menti precedentemente citati. 

Spariamo eh# queeto breve «stato vt eia utile par la 
riorganizzazione del vostri dischetti, (Mori**) 

10 OPEN 1 ,8,13, *10* 

20 OPEN 2,8,2, *#■ 

30 PRINT#1,*U1*J2j 0I1B;0 
40 PR INT# 1,*B-P*)2; 144 
30 IW>UT *N0ffE-;A* 

60 IF LEN<A*M>16 THEN A*»A*+CHR* 
( 160)t GOTO 60 
70 PR1NT#2,A*J 
73 PRINT#l,"U2*/2»0;]8/0 
80 PR INT# 1 , , * 10 * t CUOSE 21CL0SE 1 
90 OPEN 1,8, 13, *10* 

100 OPEN 2,6,2,*#* 

110 PRINT#1 ,*U1 *J210; 1810 
120 PRINT#1,*B-P*»2M62 
130 IhPUT *ID.*;A* 

140 PRINT#2,A*> 

130 pr int# l,*U2*;2;0M8/0 

160 PR INT# I , * 10 * t CLOSE 2ICL.0SE 1 
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sai 

130 DATA 1 13/0 *£01 , 159 

140 DATA 240,10,261 ,70 


150 DATA 240,25,32, 121 

Usi scompet In un nun*o pracadarte delia africa 

1S0 DATA 0,76,231,167 

cornucopia acframo gta presentato m astato cne soes- 

170 DATA 169,86, 14 1 ,6 

»o vi proponiamo, ma purtroppo par aatgaro divario 

180 DATA 3,169,167,141 

non avevamo potuto tornirne H relativo dia ueomfai ito . 

190 DATA 7,3,32,115 

Natia speranza di supplirà a quella mancanza, no 

300 DATA 0,33,196,168 

ri propon iamo nuovamente il testo a il retatwcomrrierv 

310 DATA 76,174,167,33 

to delia routine in linguaggio macchina 

330 DATA 115,0,301,153 

Questo programma consente di usufruir* di un co- 

£30 DATA 340,3,76,8 

mando List d Everso da guaito che siamo abituati ad 

340 DATA 175,163,130,141 

usare normalmente aii Commodore S4. 

330 DATA 8,3,169,3 

Digitando ritmatone FliST, otterrete una viaualiz- 

360 DATA 141,7,3,76 

z azione dei listato nella quale ogni fina* video com- 

370 DATA 98,3,8,36 

prende un'unica istruzione BASIC. 

360 DATA 13,49,4,301 

(URodmxtone) 

390 DATA 38,340,4,40 

10 FOR 1-888 TO 963* READ JiPQKE 1 

300 DATA 76,36,167,73 

, JihÉXTl * SYS628 *END 

316 DATA 130,73,133,72 

100 DATA 188 ,71,141 ,8 

330 DATA 160,3,177,93 

110 DATA 3,169,3,141 

330 DATA 133,99,200,177 

180 DATA 9 ,3 ,96 ,33 

346 DATA 93,133,98,163 


dall'INGHILTERRA i fantastici computer games ELETTRIZZANTI 



M ASTERTRONIC 


TUFFATI NEL FANTASTICO 
MONDO MASTERTRONIC! 

per vivere nuove emozionanti 
avventure piene di suspence e 
frenetiche animazioni. 

QUALITÀ- PREZZO solo C 7900 A la grande proposta 
MASTERTRONIC per conquistare tanti amici. . 

u ftTif Àgi tgps* sj A Jf roc tt'tff / MX2 ZlUff 








350 DATA 144,56,32,73 
360 DATA 186,32,223,163 
370 DATA 32,133,160,32 
360 DATA 166,182,170,163 
330 DATA 13,32,12,223 
400 DATA 32,39,171,202 
410 DATA 208,250,104,168 
420 DATA 104,170,104,40 
430 DATA 76,26,167 
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Cambia nunaro. Vi sari capitato dì chiedervi corni' è 
possibile cambiare U numero di device di un disk Drive 
(ncrtodamente equivalente ad). 

Possiamo con questa routine, ad esempio, dare il 
numero nove alla periferica in quarterie, 

Alllnìzio vi verranno domandati nrt'onflna il vecchio 
e II nuovo numero da assegnar* a questa periferici e„. 
ciò confermato, ecco che il Drive avrà cambiato mire- 
rò WentifScatìvo; d'ori in poi. artipie che non si spenga 
e riaccenda, I dischi avranno c od ice 9. 

(Morto*) 

3 INPUT “VECCHIO NUMERO MB 
10 INPUT "NUOVO hUNCROMft 
13 OPEN l,B,tS#*I0 a 
20 PRINT#I,“M-UMCHR*U19)JCHR*C0 
> ; CHRSC2 ) J CHR*( A+32 ) ; CHRS(ft + 64 
> 

30 CLOSE 1 
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P rot e stane , Dopo aver abilitalo questo programma 
non potrete più effettuare salvataggi o scrmteh aui vostri 
dischetti. 

Questo è un piccolo e se mp lo di protettone dei vostro 
software. 

(Martora} 

10 OPEN 1,9, 13, '10* 

20 OPEN 2,8,2, ■#“ 

30 PRINT1ll,"Ul*J8J0f 18J0 
40 PRINTfl,"B-P"/£J2 
70 PRWTiB,-** 

73 PR INT# i , "U2" 1 2I 0J 18*0 

00 PR INTP I , ■ 1 0 * i CLOSE 2 1 CLOSE 1 
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Maialiate- Poiché quarta rubrica P occupa anche di 
programmi' prettamente (Veflsvoti, vi proponiamo Que- 
ste simpatico fiatato. 

Ecco una interessante animazione. 

(AmBcmn Portico) 


1 PR INTCHR0C 147 ) 

5 FOR P-l TO 3 
10 FOR T* 1 TO 10 

13 PRIISTT" [NPR03E - TAB (T> “MESSAGGI 

0 * 

S0 NEHTT,P I DOTO 1 
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Caratteri Questa routine m linguaggio macch ina 
riempirà in verace eequenza il voatio video con lutti I 
caratteri del Commodore. 

(A nfcere nerarcoj 


100 REM SOFTWARE Q.B. 

110 DATA 163,0,234,234,162,0,157,0 
,4,157,0,5,137,0,6,137,0,7,232 
120 DATA 208,241,200,208,1 
130 DATA 96,132,160,0,162,0,232,20 
0,233,200,208,248,168,76,4,16, 
234 

140 FOR K-4096 TO 4 136; READ A IPOKE 
K,AINEXT 
150 SYS4096 
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^ Ì II, jàn n ai I ■ t m ■■■ * i.-àl m JJ WaJ 

uoiore inferno. Muti raptoarnente n colore oe> 

Fondale 

('Francesco Pimi 

1 POKE 4096, 238 iPOKE 48S7,33iP0K 
E 4038, 206 iPOKE 4039,76iPOKE 4 
100 ,0 iPOKE 4101,16 
E SYS4896 
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Piano di ammortamento 

di Arturo Pizzuto 

Prima lezione 


Amici lettori, vi proponiamo un programma di matematica 
finanziaria. E 1 lungo (circa 28 K). sarà anche noioso digitarlo, 
per Questo lo abbiamo diviso in sette lezioni Esploreremo 
questo mondo assicurandovi che vi ai pi asseteranno spesso 
problemi che potranno essere risolti solo con l'asilo di questi 
scienza. 

Abbiamo cercalo, per quinto potatole, di rendere i prò* 
grammi completo, cosicché sari d'aiuto a tufi) quegli studenti 
Che si accostano alta studio di questa ma seria. Servirà anche 
al manager, al protsssìontrta. ÉTbnpwidtoi che quobdtana- 
mente affrontano problemi di natura finanziaria Sarà inoltre 
utile alt 'operaio, all'impiegato, alla casalinga, che affrontano 
quieto campo di tanto in tanto e avranno un maino per deci- 
dere e scegliere meglio. 

Le sette puntate saranno cosi dune»; 

• Piano d’ammortamenio 
e Pagamenti rateali 

e Capitalizzazione sempace 

• Capitalizzazione composta 

• unmcazione o rnpteghi 
m Leasing 

• Tassi equivalenti, ecc. 

Ma settima lezione, oltre ai tassi equivalenti, saranno 
trattate altre opzioni (modo brevi), quali tasso anticipato e 
tasso po s ttdpa iQ, aliquota tva e aliquota di scorporo Iva tasso 
di maggiorazione e tasso ci sconto. 

Vi forniremo anche le istruzioni finali per il completo asaenv 
biaggìo dell'intiero programma in un unico pro g ramma di ma* 
tematica finanziaria: parte di queste istruzioni vi saranno date 
nel cono delle puntate che seguiranno, per per m ett e r v i stote- 
mancamente i assemotoggto già oan inizio. 


Un consiglio armatevi di pazienza s digitate I Urtato che 
segue: quando vedrete girar» li programma, vi sarà semplice 
capirne il funzionamento e le spiegazioni saranno più com* 
prensibiii perché potrete menade in pratica. 


La prima pagina ci mostra il menu pnropaie ed In reverae N 
sottomenu che ha come valori di òefauR quei Indicati qui di 
seguito 

a - /^azionamento annuale 

Non tutti 1 problemi possono essere risotti facendo ricorso a 
rate annuali, per cui H pr og ramm a prevede la poastoHItt ti rate 
diverse, cioè rate seme sii 1 oli* quadrimestrali, trimesti >JI, bime- 
strali. menala. In questo caso è sufficiente premere II tasto 
corrispondente alHntziale di una dato parole sopradescritte 
relative al frazionamento: in parole povere, uno dei seguenti 
tasti- 

S-G-T-B - M.„ 

e la variabile di default passa da annuale a quella scatta. 

b - Tasso cTtotensse annu&9 

Come nel c a so precedente, possono presentarsi problemi 
in cui è prevista l'elaborazione del dati facendo ricorso ad un 
tasso d'interesse diverso da queio annuale, Normafenente, La 
poesibi! ità di aceto rt riduce a quefla fra tasso annuale a tasso 
equivaienta alfopzione scelta m prec ed en z a Per cuL titepo* 
nendo come unico dato del tasso equivalente, dobbiamo aam- 
pUcamente p r ema l e H tosto F. 

Come avrete modo di vedere negl esempi che seguiranno, 
li C/64, dopo le e la bor azion i, in ceso di fra z to na mapto divereo 
da quello annuale, e» mostr ai è sto 1 tasso d'imeraeae equiva- 
lente che H tasso d' in tere sse annuale, permettendod cosi d 
capire con maggiore chiarezza la soluzione del problema. 
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c- fflcwci (fette ivtt 

Anche questa opzione di defeuJt è stata pr og r a mmata per 
aempttftcara al wee ttno le operazioni di scatta, permettendo 
cosi il p ro gr amma <f scorrere agevolmente, senza troppo 
stancare l'utente con una lunga serie di "'Input 1 ' o di ' get'\ per 
arrivare alla scotta di tutte te opzioni desiderate 

Naturatmenee, anche in questo ceso, possono presentar® 
problemi che d Impongono una sosia differente da quoto 
datad per defeuft dal programma; nessun tenore: damo 
un'occhiata al sottomenu in riverse e n o teremo tre hnee con 
tre lettere: 

c-n-l 

por la ricerca, rispettivamente, del capiate o veto» attuato, 
cioè l'ammontare dal debito contratto; M numero CWte tate a 
dal tetto tf WWM (annuale o frazionato, in relazione a 
quanto aceto precedentemente). 

Poetiamo quindi acegltete una dato seguenti opzioni: 

■ pwrmndo H tatto C. ccmuntehatam o al computer di voler 
cercare l'Importo del valore attuate; dovremo nahxtemente 
attore In poaaean dal valori dola rata frazionata, dal nunaro 
dato rate e dai taaao dlnteraaaa lanrwtea o frazkxtelo). Dopo 

aver torneato quatti valori, tari effettuata la ricerca dal vteorc 
attuala a dal relativo piano cTammortamarao; 

- premendo il tasto N. romunchurBmo al computer <S voler 
cercare I menerò dola rate. Dopo la aoNta ricreata di Immto- 
aiona dai valori dal (Spitele o vaio™ attuale, defìmporto dalla 

rate frazionata a dal tetto d'tnttreaaa tannuate o frazionato) . H 
computer afMtuerè la ricerca dal numero dato rate, pmaon 
tandod aneto I ratedvo pteno d’ammortemanto 

Una piocote considerazione e propoeto dalla ricerca dal 
numero dato rate: abbiamo volutamente laacteto l valore dal 
numero dette rete come viene eflsffl v eme i Si ferini sii tw 
computar, con te virgote Aumento; in^ 
l'erborazione del piano avvenisse per in ramerò di pertod 
uguale ai valore Mero dei ramerò dette rato. In questo modo 
fittene» può erontoattnirto scegliere se è prsferibfie aunen- 
taie l’Importo del valore attu a te oppure f'tnporto detta rata 
frazionata. Que st a scalca è motto semplice; be tta Infetti, eia 
fine deT efeborsa tone del piano d'ammortamento. promere I 
tasto CRSR e battere RETURN quando tempeggerà la riga 
oontenenfe H valore del numero dette rota, cambiandolo con il 
valori Intero più vicino, superiore o Inferiore, Goal svi rtote- 
borato finterò piano d’amm o rtamanto: 

* Infine. ptwmnùo i tasto t. intarmeremo 8 computer che 
vogliamo oercaro a tasto ( fi n tar s s e u {arroste o ftaztanTOo) ed 
Im m etter emo , quando richteito. I valori del capito» o valore 
attuale^ detta rota frazionata e del numero dal* rate; dopodh 
chè si effettuerà la ricerca del tino e detta refetNe elaborazio- 
ne del piano d'emmortamento. 


Coloro che ”mastic*no’ J un pò* di matematica finanziaria 
sapranno che questa ricerca è possibile solo tacendo ricorso 
alle tavole finanziarie (che non lutti posseggono) e soprattutto 
con notevole spreco di tempo; questo perché non esisti una 
formula diretta per la ricerca del lasso d' interesse Per fortuna, 
grazie alla grande capacità di elaborazione dati del C/64 e 
grazie anche ad una subroutine di ricerca etto passa n rasse- 
gna finterà tavola finanziaria (senza tra l'altro fere uso di 
imerpolazone lineare, come si à costretto per fe ricerca dei 
tassi intermedi con le normali tavole in commercio). n una 
manaata di secondi v elabora i valore del tasso d eaerasse 
Comunque per evitare i probarot Ma ricerca per periodi 
molto lunghi, abbiamo pro fe rito imitarla atte tre afte etto se- 
guono fe virgola; un tron ca mento davvero kritevtoìie se $1 
considera che fe dttferonze è di poche Uro in un 'elaborazione 
di dato deif ord ine di centinaia di mitiorri. Ad ogni modo, è molto 
più precisa di quanto non potremmo ottonerà facendo ricoreo 
alle suddette tavole finanziarie. 

Questo stesso problema m presenterà a proposito du paga- 
menti roteali » per recessione ce rch er e m o ci fero un'analisi 
pta dettagliala della subroutine in questione. 

Per uscire dal programma basta primari i tasto RUM/ 
STOP 

Torniamo al menu principale. Le opzioni sono quatto, cia- 
scuna la mpegg ia per poeti seooraf : possano accelerare La 
ricerca premendo CRSR DOWN oppure scendere o salire oon 
8 cursore con CRSR UP, Infine premeremo RETURN quando 
lampeggeré l'opzione desiderata 

Affrontiamo adesso l'ammortamento in generale; con que- 
sto termine si definisce, fn matematica finanziaria, l'estinzione 
di un debito In un arco di tempo, contro H pagamento di un 
numero di rote, co mp rensive di una quota di capitale ed una 
quota dì interassi passivi, cl^ coprono Hreervato considerato. 

Le forme d ammo rtam e nto più comiri seno: 

• a rate costanti, che tratteremo ala fine di questa puntala: 

• a quote chetanti dt capitate: 

• a interessi amidpati o metodo tedesco: 

« a due tassi o metodo americano. 



Nel pteno d' ammortamento a quote costanti <f rapiate. D 
debitore rimborsa atta fin* di ogni periodo una quote sempre 
ubiate df capiste, ottra agl interessi passivi maturati, te quel 
periodo, sul debtto residuo. Le rette periodato «mino, quin- 
di. decrescenti. 

Dtemo adesso un 'occhiata atte formule per ren d erci conto 
dei probtemi ed avere qiind unldee più criteri del funziona- 
mento del programma. 
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Nel caso di ricerca dotta rata H problema è cfi «empieo Basta se m plicemente premere RETURN quando vedremo 
soluzione, visto che la rata è costante Dobbiamo solo dividere lampeggiar» l'opzione "QUOTE COSTANTI DI CAPrTALE". 
il valore attuale fc) per il numero dette rati in): A questo punto i mm e tte r e mo * dati che d richiederà n com- 

poter ed K gioco è fatto; in pochi secondi avremo elaborato H 
v-c/n piano d'ammortamento che segue: 


Anche nel caso di ricerca dal valore attuale rw ef sono 
difficoltà Dobbiamo, infatti, solamente mottlpicare le rata fra- 
zionata (r> per V raanero dette rate (n>: 

cm*n 

DI estrema facilità à la ricerca dei renerò dette rate. Si 
dhridee e m pM cemenfte B valore attuale (e) per le rata frazionala 

(r): 

n-c/r 

Per rieolvere B problema detta ricerca del tasso d'interesse, 
il computer ci eh tetterà cH rimettere anche «valore delia pnma 
rata comp l aeaN a; sottraendo da questa H valore deila rata 
frazionata, avremo la prima quota di interessi (il), che si 
riferisce al debito residuo dopo zero periodi, ctoi al valore 
attuale. .Quindi divideremo la prima quota intere ssi (il) per 1 
valore attuale (c) e trovam mo I tasso d’interesse: 

MT/C 


Piano d 'ammortamento * Quote costanti di capitale 
Frazionamento annuale * Teseo di interesse annuale 

Valore attuale 10.000.000 

Numero dì rata 5 

Tasso d‘ interasse T8% 


bo inivrvfsi arme !pa.j 

Nel pieno cT ammortamento ad interassi anticipati o metodo 
tedesco, il debitore pepe aritiopatemente gii interessi pesavi 
all'inizio di ogni periodo, oltre ed una quota dì capitale che 
corrisponde alla fine tf ogni periodo; in totale paga una rata 
costarne compren si vi j quota interessi e di quota capitale 

Esaminiamo la tomuds generali per la ricerca delta rata 
costante, dar valore attuale, del numero delle rato • dei tasso 
d' interesse. 


Annusi. 


Qu* bitter. 


Deb. est. 

Deb. ree. 

0 

0 

0 

0 

0 

10000000 

1 

2000000 

1800000 

3800000 

2000000 

6000000 

2 

2000000 

1440000 

3440000 

4000000 

6000000 

8 

2000000 

1060000 

3060000 

6000000 

4000000 

4 

2000000 

720000 

2720000 

8000000 

2000000 

5 

2000000 

360000 

2380000 

10000000 

0 


Con un esempio vi renderne effettivamente conto detta 
tempie*! con cui 3 programma rieottte 1 problemi. 

Supponiamo di avere cont ra tto un debito di Lire 1 0.000.000 
a di volerlo estinguere mediante h pagamento di 5 rato annuali 
posticipata, riconos c e n do al debitore un tasso d’interesse del 
18% annuale. 

Poiché aia il frazio na me nto che i tasso d'interesse sono 
annui, do b bia m o ricercare l'importo dette rata {lutti valori di 
defaulL come abbia mo visto prima). 


Per ricercai» la rata frazionata, dobbiamo innanzitutto con- 
siderare che l'interesse passivo da comspondere è anttcjpeto. 
quindi si potrebbe anche considerale m dibrto o valore attua- 
le peri alt effettivo valore attuale detratto l'interesse passivo 
pagato antiap *^ me nte D ubbi an o . In parola povere, consi- 
derar» il valore attuale meno l'interesse pagato antippa»- 
mente e, con tem po ra neamente, sostituire al tasso d interesse 
anticipato ii corrispondente lasso d'interesse poatiopato 
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Con “ta" Intaniamo I tasso d’inoresM anticipala oon "Ip" 
tl tasso d tmarani pontìopato: V nahxaknan» * « valore 
attuala; “n” M rumare (Ma rata ad *V‘ 4 l'importo Mirata 
frazionata da ric a mare. 

Mo W pfcanòo I valore a ma la por (1%). apriamo ipreatSo 
aftaWvo ai nono dal'hiwaaaa pagalo andcHatan re sa: il tasso 
d'I n lareaao po ot k;lpaao‘ , lp ,, èdM ( Maaa gu areilOiiwai 
p-W(lHa) 

l * 

Dopo quote consktarezioni possiamo pnsara, in tesi sue* 
coesiva, aJla formula di riesci ctois retar 

s semplificando 

r-e*(lo^H1-ta)Tn)) 

Ora oomUsinno la ries ci dal valore n*Ti"r L t a te relativa 
formula. Attribuiamo. coma sopra, a ‘V 4 1 valore dotte reta 
frazionate* a “tt" I numero dai* rete ad a "te" I tasso d’iole- 
rossa antopaio, bvnsno i psaaagQto ano lav prevrnnan a 
riportiamo la tumula precederla (Ma ricama dall rata: 

r-e*fla«i-(i-ia)Tn» 


n-(tog(iHog((t+ipiT-n)yiog(1-Hp) 

In quotilo modo làMu no 1 valore di "n”. oon rovankiala 
virgola fluttuante. 

Por la ricerca dot tasso <f Intareaea, I computer vi chiodare 
di immsdsro rsmmontare daUntaraaaa arteotpato da conv 
spondore aitano dell riscossioni dal prestto, questo nasali 

baste dividere [Interesso sffjajpsio par I vslore attuata e 

te-KVC 

Esaminiamo ("esempio proposto: 

- colonna f ; annuente (da 0 a S), vale a dre nunero del* rete; 

* cotenna 2: rata costante (r). è te quote costante di capitate da 
rimborsare annualmente : 

r*c/n 

« colonna 3 : quote d'interesse (ik). vate adiro N 18% addebito 
residuo: questo valore decresce oon raums nta re dal remerò 
defto rate. Cerchiamo quindi d uniformare te formula, atto* 
buondo aVun valore aeeoonts ds 1 s 6: 

k-cW(n-fc+l) 


Partendo da q us ste torrette, Invertiam o I tarato! nal modo 
o-r/(teflHi-te)Tn)) 

Pas sia mo afta ricerca dal remaro dsSs rete, fonanzttuno 
datonnÉntemo H valore dsi tesso (TtotereosspootfotesSo oon te 
seguente formula: 


* colonna 4: rete oomptessiva (ck). vate a dre te somma ira te 
quota cosante d capitate e te quote Interessi decrescente: 
anche questo valore decres c o oon ra tm snters dai* rete. 
Attribuiamo s e m p re a V* un valore crescente ds 1 a 5, 
ottenendo te seguente formule; 

ck-cfti*(1+rfn4t+1)) 


ip-tefll-te) 

In ascondo luogo troviamo l'importo del valore SbSs mano 
l'interesse antiefoitemente. oon te formula seri erte 

oD-e*(1-te) 


* colonna 5 ; d e bito estinto (dato vate a dre te somma dsSs 
quote costami d capiate: ricordste sempre che k è un vtaore 
crescente da 1 a 5: 

<M-c/ri*k 


Rivedi»» la prima formula per la rioerca (Ma rata: 

r-c'(Ha)Vn-d-Hp)T-n) 

a 

Con "oCT Indfohtemo I valore d "c"(1 -te) testasM formu- 
la col nuovo valore dvsnte: 

r-oOTp/<H1-Hp)T-n) 

Da cium» formula ricavi»» I valore di "(l+^fT-n" nal 
modo seguente; 

(1 + lp)|-n-l *0/r* ip 

H valore che d Intel essa è I valore d "n*\ Par trovare un 
eterniamo a potenze slamo costretti a ridonare al togsrtmt 


- colonna 6: debito residuo (drk), vaie idre la differenza tra N 
valore attuate ad H totete daNa quota ooaterte d capitate rim- 
borsate. Ricordando che "IT cresce da 1 a 5. abbiamo te 
seguente formula; 

dric«e/h*(r>-kl 

Alla fina d ogni elaborazione, te pagina d testo d mostre» te 
basso, una riga In rovere*, Prem e nd o SPACE avremo te 
vteuaizzazione su video, periodo per periodo, del dall elabo- 
rali; premendo CflSR I menu domerà a lampeggiare e potre- 
mo ac e gi a re I dato dia sg a nno rnodfi care : I <W p ense rà 
a rielaborare I dati oon te modifica apportate; pre m endo S e 
disponendo d una stampante, d verrà stampato M piano 
d'ammortamento. 



0 

0 

taooooo 

0 

0 

10000000 

1 

2860602 

1567207 

1293295 

1293295 

6706705 

2 

2860502 

1283313 

1577160 

2870464 

7129516 

3 

ascoso? 

937100 

1923402 

4793686 

5206114 

4 

2860502 

514800 

2346612 

7130496 

2860502 

S 

2860602 

0 

2860602 

10000000 

0 


Facciamo 0 solito eeentotod^debtto di Urei 0*000.000 da 
rimborsai» mediante 5 annualità al tasso d' interesse dei 18% 
annuale. 

Anche in quarto caso abbiamo tutti valori dt default. quindi 
dobbiamo pw n wn RETURN non appena vedremo lampeg- 
giare l'opzione INTERESSI ANTICIPATI. 

In seguito i C/64 d chiederà dì immettere rimpocto del 
valore attuale, inumerò defle rete ed infine il tasso d'inteneege 
annuale. 

Una volta i nseriti questi doti, verri elaborato M piano d'aro- 
mortamemo che segue: 

Pieno d'ammortamento - interessi anticipati (Tedesco} 
Frazionamento annuale - Teseo di interesse annuale 


- cotenna ft- 0 debito residuo (drt). le differenze cioè fra il 
valore attuale sd 
il O90ii0 mano 

drk-c-dek 

Dopo l'elaborazione del piano d'ammor ta mento, d viene 
mostrata la solito riga in reverse: con SPACE d sari la visua- 
lizzazione su video ad ogni periodo dai dati elaborati: con 
GRSfl lampeggerà «menu pnndpeM per eventuali modtffc^ 
con II tasto S veni st a mp al o I piano d'ammor t amento 
richiesto. 


Valore attuale 10.000.000 

Numero di reto 5 

Analizziamo le sei colonne: 

* cotenne f; I numero deile annualità, in totale 5 rete annuali: 

- cotenna 2: rato costante , comprensiva deila quoto interessi e 
delia quota captale. E' cabotato con la fomKte vista in prece- 
denza e che riportiamo per maggior chiarezza. 


Net plano d'ammortomento a due tossi, o metodo america- 


no. i debitore rimborsa m un'unica aotuzlone rrtiero debito 
alla scadenza del prestito, pagando peto ala fine dì ogni 
periodo gè interessi passivi sui]' intero debito, accantonando 


i una somma perkxi* 


ca tale da garantirgli alla scadenza dal debito un montante pari 
al prestito. 


- cotenna 3: quoto interessi flkj. 1 13% anticipato sui debito 
residuo: 

- cotenna * quoto capitale (<*), l'Importo del debito estimo 
alla fine di ogni anno. Per effettuare l'operazione abbiamo 
ancori bisogno dei vebrl di "cCT e "ip" visti m precedenza, 
dopodiché possiamo passare a mostrare la formula che se- 
gue, ricordando sempre di attribuire a 'V* un valore da 1 a 5: 

dt-(c0*(1 +ip) tk)/(({ f -HpfTn-tyip) 

- cotenna 5: il débito estinto (dek) risultante su ogni quoto 
capitala: per aampMbare. ain non è cha la somma de«e quote 
capitale viste in colonna 4: 


Esaminiamo le formule, cercando di chiarire meglio 0 
concetto. 

Quando si presentai problema c0 ricerca della rata, dobbia- 
mo tenere presente che detta rata frazionata deve essere 
comprensiva, offre che degli interessi pesarvi sull 'intero debi- 
to. anche della quota di accantonemento che consentirà, alla 
fine del periodo considerato, di avere un montante pari al 
debito assunto. Teniamo conto che *T é ri tasso d’interesse 
sul debito: *'iT è il tasso d'interesse di ricostituzione dei fondo: 
"c" è sempre H valore attuale: “n" sempre il numero defte rato 
Per arrivare alia formula finale la póma operazione da compie- 
re è stadi lì re l'importo dell 1 interesse passivo da oorrìsponders 
alla fine di ogni anno: per far dò basta sampifeamento mcritipfi- 
cam il valore attuale per 0 tesso d'i nter e ss e sul debito 


dek-defc+c* 


e*i 
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Al valore d cui sopra aggiungiamo la quota d accantona* 
mento che d permetterà di avere alia noe un montante pari al 
debito assunto Quando si tratteranno i pagamenti rateali 
parleremo piu dettagliatamente di questa formula: ore limitia- 
moci a dire che bisogna moltiplicare il valore attuale per il 
termine di costituzione di capitale: 


É l n — n p, -I r-, jJL lh » I |ln skKiamA ■ 

untncartìo vi oub ionriuie aoCHarno. 

Se il tasso d'interesse sul debito dovesse cotnadme con I 
tasso d'interesse di costituzione, si ricadrebbe neH’arnmofia- 
mento a rete costanti che vedremo in seguito, poiché M termine 
di costituzione capitale più I tasso d'interesse: 

i4WK(14*)Myta» 


comsponde al termine d' am m or tame nto di debito. 

1fl(H14flT-nyi) 

Per la ricerca del valore attuala valgono le atea— argomen- 
tazioni trattate precedentemente. Partiamo quindi direttamen- 
te dalla formula vista prima: 

(■CTHOfflll’HtìTn-iyil» 


Di questa sempitoemente invertiamo rondine per trovare il 
valore attuale, nel seguente modo 

c-r/{l+0/(((l +ii)f n-1 Vl*>) 

Per la rtoerca dai numero delle rete, dobbiamo prima di tutto 
scindere ri valore della quota in tere ssi che chiameremo 4, qT 
ed il valore della quota di costituzione captale che chiamere- 


mo “qc". Poiché co no e da mo ri valore delta rata frazionata, 
semplifichiamo ri procedimento con le seguenti formu letto 

qi-C"l * qc*r-qi 
(i +iai*n*c/qc p ia 

Parta ricerca del valore attuato semplifichiamo u lutto, 
ncando g» elementi oesa torm ma praceoentB 

c-r(Hi+flT-nyi 

vediamo ot« la tamii relativa aia ricerca dei numero d*«t 
rate; prima di turo estraiamo il valore cS "(1 nei modo 


(IH-Of-n— t-cA*i 

Da quest* troviamo: 

rv«.log« t +ta)?n)/log(l +ia) 

r er m noerca oei lasso o i ntefesse auotamo u compro tbcieh 
tato. Infatti ri computar ci chiederà di immettale I valore d “pi” 
o QQQQtBrnQ soio «vraano por h vwqtq sdubm. 

i— qi/c 

Consideriamo ri sosto eeempio del debito di Ure lO.OOD.OOO 
In $ anni al 1 8% annuale, considerando un tasso tì± costituzio- 
ne capitato dei 1 6% 

Anche In questo caso abbiamo tutti valori d default, quindi 
premeremo RETURN quando vedremo lampegg ia re l’opzio- 
ne "DUE TASSI (AMERICANO)'' 

Rispondendo come al solito agl input del computer, avremo 
elaborato il seguente piano d'ammortamento: 

Piano d'ammortamento - Due tese! (Americano) 
Frazionamento annuali * Tasso df interesse somale 

Valore attuale 10.000.000 

Numero d rato 5 

Tasso d'intereeae 19% 

Tasso interesse coet fondo 1 9% 


Annua! 

i 

i 

Que-rieea* 

t 

Ini fondo 

Fondo «m. 

0 

0 

0 

0 

0 

0 

1 

1800000 

1454084 

3254084 

0 

1454093 

2 

1800000 

1454084 

3254094 

ZÌ2fì55 

3140642 

3 

1800000 

1454084 

3254084 

sogs&s 

5007471 

4 

1800000 

1454084 

3254094 

815595 

7367100 

5 

1600000 

1454094 

3254094 

1178746 

10000000 
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In seguito, facendo ri corso ai logaritmi, troviamo H valor© di * colonna 3; la quota di rioosttuzione capitala che ** calcola 
‘n 11 : nel modo seguente: 


«1 -H)T-n))*gt 1 +i) qc-c/(«l +*)\^ W 


Come potete notare, il valore di “n" è staio las ci a to al 
naturale; cioè con la virgola fluttuante, proprio perchè retabo* 
razione dal dati possa suore fatto con macini q u as i assoluto 
di precisione. Qualora I valor* di ’W abbia dola cifra dopo la 
virgola, i euDorazione e ridotta u ooio numero intero uose 
rate In Att ento caso i defitto residuo otta fina dal oeriodt 
considerati sarà diverso da 0; cosi potremo acegfiars, pre- 
mendo I tasto CRSR e ca m b ia ndo I valor* et "ri" al votare 
intero più vicino, inferiore o sifoerinra, ae nvdbas l importo 
del votare atti mie oppure l'Importo dola rato, 

Eccod arrivati a I punto cruciale. I* ricerca del tosto d'inte- 
resse Non 

tasso d 'interesse. Normalmente occorra tare uso delle tavole 
finanziario, ma non tutti le hanno, oool è stato introdotta quota 
subroutine di cui ai portava In procedenza, che non fa altro che 
passar* In rsseeqna tutti 1 tassi d T n tor aasa, fino a trovare 
guaio più vtetao al valore dolo dMstone tra valore 
rata. In quseio caso, bisogna 
più par avare V valore dei 
pena, considerando tutto la fatica risparmiata. 

Facciamo I soito esempio del debito di Lire 10 000.000 da 
estinguere in 5 vini al 18% annuale; operiamo, però una 
piccola modifica, frazioniamo le rato In semestre! {ricorriate, 
bisogne premere I tosto a), facendo coai ritortoiento alto con- 
dizioni con cui le banche concedono l mutui. 

Vedamo adesso l pieno (fvnmortomento relativo: 


- colonna 4; la rato costante, te somma cioè dalla quoto tate- 
resse e della quota di ricostituzione: 

r-qi+qc 

oppure seoondo le formula vieta prime: 

r— c*(l+(1^(n -HaJtn-i)ria)) 

- colonna 5: Interessi sul tondo ^ a mmo ni men to , g« tatereMi 
doè capito! tirati sulla quoto di ricostituzione. Indichiamo con 
"ffk M gli Interessi sul tondo e con 'lek” a fondo ammortamento 


gementi rateai: 

ftot-qc*(({l+toJtk-l>fla} 

Far finire, dopo l'elaborazione, sarà visualizzato la riga In 
reveree con la Istruzioni: premendo SPACE visualizzeremo 1 
dati ad ogni periodo: p remendo CRSR potremo soe g le r s il 
dato da modMcere; pre m endo S avremo su cari* l plano 
d'ammortamento vieto sopra. 


una formula che d permetto di trovare M a fine armo, abbiamo quindi la seguente formulai 

sempre che "K” varia da 1 a 5): 


Wc-fafr-ina 


q u a lche secondo 


• - colonna 6:1 tondo tf amm or t i meto o. a montante cioè deieS 
to quotodrtooatitoztortocapitoiizzatoilie%.AbbtomoqLrindlia 
vaia Sa formula tipica dal montante che vedremo a proposito dei pe- 


Plano d'ammortamento - Rato costanti 
Frazionamento sfinestrato 


Valore attuato 
Numero di rate 
0880 0 interesse 


10000000 N* 1 piano d’ammortamento a rete costanti, di uso presaci 

iq diè generalizzato in nana, I debitore rimborsa alto fine di ogni 
1 periodo una rato costante, comprensiva di quota capitato a di 
6.M7B04* quota intarwaJ. 


Analizziamo ancora una vota le eoi odorine; 

- cotono* f: corre al sdito, il numero ddto rsts {5); 

- colonna 2; la quota interessi, sempre fissa, porche fisso fino 
alto fine è il debito assunto: 


Ritorniamo alto formula (non stote stanchi, vero?}. 

AfTrormamo * prootema detto noerca dosa ras. Lonsaderte- 
mo innanzitutto ! termine d' am m o r ta mento d un debito che 
abbiamo visto prima: passia mo quindi drittamente aito 
formula: 


qf^c'l 


r-Cfl(H1-H)T-n>/i) 


le-Canmada* 



d*-c*( « 1 -H) fk- 1 tw<« 1 -H)T n- 1 l/i) 


Analizziamo ancora una volta (ò l'ultima) te sei colonne dei 
piano d ammortamento. 

- cotenna 1: U valore massimo questa volta è 10. perché m un 
anno ci sono 2 semestri ed in 5 anni roturalmerite TQ: 

- cotenna 2: te rata costante (ri è fìssa par te formula a 
rifacciamo all'esempio precedente 

r »c/((H1 


- cotenna 3: te quota interesse (*), doè gi interessa passivi 
calcolati sul debito residuo, mediante la seguente formula: 


• cotenna 4: te quota capitate (cfc). vate a dira l'Importo dot 
dedito che semestralmente viene rimbor sa to, mediante il pa- 
gamento dette rata. Questo punto è importante per sapere in 
qualunque m omento quanto è stato rimb o r sato e decidere, 
quindi, se è conveniente o meno saldare l'Intero d ebito resi- 
duo. Qui seguito è mostrata la tormuia: 

* cotenna 5: il debito estinto (dek). la somma cioè dette quote 
capitale: te formula semplificata potrebbe essere te seguente: 

Hlilif — 1 — * ■ _fcj^Lr 

QBK*OBKtCK 

Comunque, per una migliore elaborazione del piano, abbia- 
mo preferito dare te formula classica: 


- cotenna 5. il debito residuo Idrkt. oc* riporto del debito 
rimasto ancora da saldare dopo t< pagamento di IT seme- 
stralità è pocamente te differenza tra i valore attuate e il 
totale dette quote capitate 

drk-c-cfc 


Anche in questo caso si è preterito knsenre te formula classi- 
ca per il caJooto del debito resìduo: 

drfc-c*({1-{1 +f)T-<i>*)WUH1 +*)?-ntf) 


Ancora una volta, dopo f elaborazione del relativo piano 
d'ammortamento, abbiamo te visualizzazione dette riga in re- 
verse con te istruzioni, in modo da non dover consultare ogni 
volta te rivista per ter girare i progrwnma 

Senz'altro, quei pochi che sono arrivai! alla fine, avranno te 
testa piena di formula, ma none * da preoccuparsi, a program- 
ma ai occupa di tutto. Voi dovete se mpl i c emente rispondere ai 
pochi input richiesti e tutte le formule viste in precedenza 
saranno elaborate in pochi secondi. Sono state descritto solo 
per fervi comprendere meglio te soluzione del problema e per 
poter eventuaknente controllare se quanto proposto dal pro- 
gramma ste stato elaborato nei giusti termini, secondo te 
f ormute più classiche dette matematica finanziaria 

Nella prossima puntata carieremo dei pagamenti rateali 


AmwL 

R-oo* 

QU.M». 

Qu capii* 

D«b.tit 

Deb*»M* 

0 

0 

0 

0 

0 

10000000 

f 

1532767 

862781 

669967 

669987 

8330013 

2 

1532767 

804975 

727792 

1397778 

8802222 

3 

1532767 

742163 

790584 

2108363 

7611637 

4 

1532767 

673973 

856794 

3047157 

6952843 

s 

1532767 

589678 

932089 

3960046 

6019964 

6 

1532767 

519390 

1013377 

4993424 

5006576 

7 

1532767 

431956 

1100009 

6094233 

3905787 

a 

1532767 

336982 

1195786 

7290018 

2709962 

9 

1532767 

233812 

1296955 

8588973 

1411027 

10 

1532767 

121741 

1411027 

10000000 

0 


Commodore- 17 


1 POKE 768,98 

8 POKE 93280, JUPOKE 33281, 1HPR 
INT"t VERDE] *1 CHR*( 14 )1CHR*C8) 

10 CLR 

11 B*<1)-" 4NNUALE* 

12 B*(2>-* STRALE * 

13 B«<3)-' MADRI ASTRALE" 

14 B*(4)-" | R II'ESTRftLE ■ 

15 B*<3>-" |U"ESTRALE" 

16 B*(B>-" ANSILE" 

18 A*(9>-‘ 1 ASSO D ' INTERESSE* 

18 B*<0)-" I ASSO D 1 INTERESSE " 

20 A*(0)-*ICLEAR) \*l“\0| 

24 A*(4)- ,- IIAN0 D ' 4MMORTAMENTO ■ 

29 U-12IQ-9 

31 P»6iBB-HGQ-liO-4iL-2iK>G8iM-3 

32 D*-*tH0l>E][17 DOLN1" 

48 QO-6 

34 Z-4 

39 A*(0)-"ICLEAR]"+A*<Z> 

88 U-4IA-ZIA2-A+2 
90 ON A80T0 108,2000,300,400,300 
9B POR PQ-LEN(A*(4) ) TO 26iA*<4>- 
A8<4)*" * IKEXTi RETURN 
400 REM 

402 A*( 1 )-" _ATE COSTANTI* 

404 A*<2)-" «JOTE COSTANTI DI CAPI 
TALE" 

406 A«(3)-" INTERESSI ANTICIPATI < 
I EDESCO ) " 

408 AS(4>-" -UE TASSI («"ERIGANO) ' 

410 FOR 2*0 TO 4iPRINTA*(Z) iPRINTi 
PRINTirCKT 

411 OOSUB 11300 

412 QQ-3t80SUB 33001 GOTO 4000 
700 PRINT1A*(0)IEND 

4000 NI**" IDOUN IRATA D ' AhWORTAMENT 
0* 

4010 Ne*-"_ATA -OST" 

4011 Al-ZlL*-A«(Al) 

4020 N3«-*8U. -vNTER" 

4030 N4*-"«J. -APIT'IIF Z-2 THEN N4 
*-"_ATA COff 
4040 N3*-*-£B. “STI* 

4030 N6*«*-EB. RESI" 

4033 PRINT"[CLEAR]«mORT.A*L*iPRINT 
■FRAZ "B*<BB>* ,NT*B*(G8) I IF Y- 


9 THEN RETURN 

4037 IF 0-1 AM) Z<>2 THEN PRINTtPRI 
NT'-ATA ’B*(BB >f 1 INPUT RAIOOTO 

4072 

4038 IF 0-1 AM) Z-2 THEN PRINTiPRIN 
T*0UOTA CAPITALE COSTANTE " 1 1 IN 
PUT RAiQOTO 4072 

4066 PRINTi INPUT "“FESTITD 0 >*LDRE 
ATTUALE *)C 

4068 IF 0-2 ANO 202 THEN PRINTtPRI 
NT*_ATA "B8(BB)f 1 IKPUT RA>80TD 

4083 

4069 IF 0-2 AM) Z-2 THEN PRINTiPRIN 
T*0UOTA CAPITALE COSTANTE *1 1 IN 
PUT RAiQOTO 4083 

4072 PR INT" ED0UN1NUMER0 DI "B*(BB) a 
ILEFT1ITA' "Il INPUT T0 

4076 IF 0-3 AM) Z-2 THEN PRINT'IDOU 
N]~RIMA"B9(BB) " ILEFT] ITA ‘ COW> 
LESSI VA" l I !M»UT UU 

4077 IF 0-3 AND 2-2 THEN RA-INTtC/T 

0- 1.31)1 UU-UU -RA I GOTO 4090 

4078 IF 0-3 AM) 202 THEN PRINTiPRI 
NT*_ATA ■B*(BB)HIM»UT RAI IF Z 
04 THEN 4086 

4079 IF 0-3 AMI Z-4 THEN PRINT'BUOT 
A D’ INTERESSE "B*<BB)HIM>UT QI 
■GOTO 4086 

4083 IF 86-1 THEN PRINTiPRINTA*(9)J 
B*(Q8)Jf IM>UT li GOTO 4083 

4084 PRINTtPRlNTA*(8)lB*(BB)IIIM»UT 

I 

4083 I-I/100I IF 88- I THEN IK-I 

4088 IF Z-3 AM) 0-3 THEN PRINT'IDOU 
N] 1A «JOTA ANTIC • "B*(80 ) " DI 1 
NTERESSE * i IM*UT C3 

4087 IF 2-4 AM) 003 THEN PBINTA*<9 
)IB«(8G)iPRINT*DI COSTITUZIOFE 
FONDO" f I INPUT IA 

4086 IF Z-4 AM) 003 THEN IA-IA/180 

4089 IF Z-4 AM) 003 AM) 88-1 THEN 
IC-IA 

4090 IF P-7 THEN 80SUB 4880 

4091 N7»-MI0*(B*CBB),2,8)HF LENCN7 
*)<9 THEN FOR N7-LEN(N7«) TO 8 
IN7*-" " +N78I FEXTN7 

4092 IF ZOl THEN IZ-I/tl-I ) iCZ-C*C 

1- 1)1 ON 080 TO 4300,4310,4320,4 


1S- Commodore 



530 

4033 ON 080 TO 4095,4033,4097,4100 
4095 GOSUB 8 1 50 1 GOTO 4108 
4098 GOSUB 83551 GOTO 4106 
4097 GOSUB 84501 GOTO 4106 
4100 GOSUB 8250 

4106 R -Ct GOSUB B550tC*-R* 

4107 AC 1 )-C) A<2) -TBtA(4 ) *RA t A (3 ) » I * 
100 

4108 R -RAI GOSUB 8550IRAS-RS 

4109 IF P>7 AND GGOBB THEN A(3)-IK 
• 100 

4110 IF X-9 THEN 4113 

4111 DIM C I <380 1 ,CK (300) , DE (300 > ,QR 
(300) 

4112 DIM C 18(300) ,CK*(308> ,DE*<300 ) 
,DR*<300) 

4113 DR(0>-CHF Z-3 THEN CKBJ-INTC 
C*I*.5> 

4114 DR«(0)>C*iDE*(0>«* 0 * iC 

K*(0)-DE*(0)tCI*<0)»DE*(0> 

4116 IF Z-3 THEN CZ-C*< 1 -I ) 1 IZ-I/U 
-I)iCI*(0)«STR*(CI<0>> 

4117 FOR QP-LENCC 14(0 > ) - 1 TO 9iCI*( 
0)-’ '♦CIS<0)U«XTiCI*(0)-RIGH 
T»(CI*(0),9) 

4118 OD -0 I GOSUB 4175 

4119 GOTO 4199 

4120 DO-DO+l 

4124 IF Z-3 THEN 4160 

4130 ON Z GOSUB 8600 ,B601 ,8602 ,8603 

4136 R -DE < DO ) t GOSUB 8530iOE*(OO)-R« 

4138 IF Z-3 THEN 4140 

4140 ON Z GOSUB 6610,8611,9612,8613 

4146 R-DR (DD) i BOSUB 8550iDR«(OO)-R* 

4148 IF Z-3 THEN 4170 

4149 IF 2-4 THEN 4160 

4150 ON Z GOSUB 8620,6621,6622,6623 
4156 R >C 1(00)1 GOSUB 8530tCI*(OO)-R* 

4158 IF Z-3 THEN 4130 

4159 IF Z-4 THEN 4170 

4160 ON 2 GOSUB 6630,6831,8632,6633 
4166 R-CK(DD)I GOSUB 8550 iCK*(DO> -R* 

4169 IF Z-3 OR Z-4 THEN 4150 

4170 GOTO 4199 

4175 Y *9 ■ GOSUB 4055 1 A ( 1 )«C >R-A( 1 ) 1 8 
OSUB 835&iCS(l)-R* 

4176 A*( 1 )•* XALORE ATTUALE 


■tpRINTtPRINTA*(l);C*a> 

4177 A*<2)-* AJ MERO DI RATE 

* I A(2) -T0 

4178 AS(4)- * _ATA " +B8CBB) i GOSUB 96i 
IF Z-2 THEN A*(4)>* «JOTA COST 
ANTE DI CAPITALE’ 

4179 A*(3 ) ■* | ASSO D’INTERESSE 

■ I A<4 ) -RA 

4180 IF P-6 THEN IK-HIC-IA 

4196 R*-LEFT«(STR*(A (2 ) ) , IO) I GOSUB 
8551 lC*(2)-R*iPRINT>PRINTiPRIN 
TA*(2)JC*(2) 

4187 A(3)-I*100 

4 IBS IF P-6 THEN GOSUB 8543iPRINT’£ 
2 DQLND *A*(3)1CS(3) IPRINT 

4188 IF P-7 AMD GG-BB THEN GOSUB 85 
45* PRINT* 12 D0UMD’A8(3)C*(3)IG 
OSUB S541 (GOTO 4192 

4190 IF P-7 THEN A(3)-IK*100iGOSUB 
8545 iPRINT’ C2 OOWNI *A*(3 )C*(3 ) 
■GOSUB 6540 

4192 IF Z-4 THEN 4280 

4184 R-A(4) tGOSUB 8550iC*(4)-R*iPRI 
NTiPRINTA*(4)lC*(4) 

4195 PRINT’12 D0LN3 , 


4196 PRINTN3** |*N4»* |"N5** |"N6* 

4197 PRINT" 1 1 

1 ‘ 

4196 PP-01 RETURN 

4199 PRINT* CH0MEH23 OOLWD'J IGOTO 4 

300 

4200 A*(5)-A*<4) I A(5) -A(4> 

4201 A*(4>-* 1 ASSO INTERESSE COST.F 
OFOO* 

4205 GQ-6 

4208 IF P-6 THEN A<4)-IA*100lGOSUB 
0549 IPRINT* [QOLNI *AS(4)ICS(4) I 
PRINT 

4209 IF P-7 AMD GG-BB THEN A(4)-IAs 
100 ■ GOSUB 9549 iPRINT* IDOUND'A* 
<4)C*(4) i GOSUB 85471 GOTO 4212 

4210 IF P-7 THEN A(4)-1C*100IGOSUB 
8343 SPRINT" [DOLN] " A*< 4 ) C*(4 > i G 
OSUB 8546 

4212 R-A(S) tGOSUB S550IC*<5)-R*iPRI 
NT* COOLMI *A*(5)C*(5) 

4213 PRINT* «JOTA RIC08TITU2. CAPIT 



ALE "OC* 

4214 PIU NT’ «JOTA INTERESSI 
’QI* 

4217 N3S-SNT -OMIO ' I N48- ’ -OM)0 *WI 

■ 

4219 PRJNT’13 UP ] ’ » GOTO 4193 
4380 PRINTB9CBB)’ ILEFT] ITA' *t PRINT* 
IUP)’ TABCLENCSSCBB) )+4) * t 
4 UEFTl’DO 

4303 IF Z «4 THEN PRINT* IHOPE] C20 DO 
luti] • iQOTO 4313 

4310 PRINTO* 

4313 PRINTCI0COD) * I ’CKSCDD) * | 'DESCO 
D)’ l'DRSCDD) t IF A2-9 THEN RETU 
RN‘ 

4320 IF PP>0 AND DO-INTCT0) THEN 90 
SUB 5B00 

4338 IF PP-I THEN SET lAJSi IF UH*»” 
THEN 4330 

4333 IF PP-1 THEN IF DD-INTCTB) THE 
N DO--1 

4340 IF PP-I AM) UW*-’R' THEN RUN 

4341 IF. PP-I AM) UU*- a r THEN 700 

4342 IF PP-1 AM) Utt-’S' THEN QOSUB 

3300 

4343 IF PP-1 AM) l*(*- ’ 1001*41 * THEN 
Al *21 OTTO 15900 

4344 IF PP-1 AND 14400' ■ THEN 4330 
4343 IF PP-1 THEN DD-DD+UGOTO 4199 
4330 IF DO-INTCTB) THEN PP-1 1 BOTO 4 

330 

4399 GOTO 4120 

4300 IF Z-2 THEN C-RA4T0IQOTO 4106 
4302 IF Z-3 THEN C-RA/C I/(1-C1-I)»T 
0 > IQQTO 4106 

4304 IF 2*4 THEN C-RA/C I + l/C < C 1 -HA) 
tT0- 1 )/IA> ) I GOSUB 43901 BOTO 41 

06 

4310 IF 2-2 THEN T0-C/RA 
4318 IF 2-3 THEN T1-1-C2/CRA*. 1 )«I2 
IT0«CLOGC1>-LOGCT1>)/1.OBC1 + I2) 

4314 IF 2-4 THEN OI-C*IiOC«RA-QI*. I 
ITI-C/QCSIAM 

4313 IF 2-4 THEN TB-L0GCT1 >/LOG C 1 ♦ I 
A ) t QOSUB 4394 
4519 GOTO 4106 

4320 IF 2-2 THEN I-UU/Ci IK-C l+I)tK- 
1 1 GOTO 4106 


4322 IF 2-3 THEN I-CS/Ci IK-C 1+1 >tK- 
1 i GOTO 4106 

4324 IF 2-4 THEN OC-RA-OH I-QI/Ci IK 
-Cl*I)tK-li IZ-Ii IW-IK 
4525 IF 2-4 THEN 02 -RA I CT-C I RA-OC i 9 
OSUB 8400 

4326 RA-OZ t IA-I > IC-IK< I-I2< IK-IbH80 
SUB 43941 GOTO 4106 
4330 IF 2-2 THEN RA-C/TBiBOTO 4106 
4532 IF 2-3 THEN RA-C4C l/C l-< 1 -I >tT 
0 > ) i GOTO 4106 

4334 IF 2-4 THEN RA-C«< I+C l/C < ( 1 + IA 
>tTB-l )/IA>>) tOOSUB 43801 GOTO 
4106 

4590 QI-CII 

4392 QC-C/C < Cl*IA)tTB-I )/IA) 

4394 R-01IB03UB 93301 9 I*-R* 

4593 R -OC t GOSUB 8350IOC0-R8 
4599 RETURN 

4960 K-BBIIF K-6 THEN K-12 

4961 IF K-3 THEN K-6 

49B3 IF G6-BB THEN IK-C Iti >fK-l UC- 
CI *IA)tK-l iRETURN 
4984 IF 0-3 THEN RETURN 

4988 I»(ltI)tCl/K>-HIA-atIA>ta/K 
>-l 

4989 RETURN 
5300 REM 

5302 OPEN 1,4,7 
3504 CM) 1 

3510 PR INTCHR9C 14)ASC0 )CHR9< 15 >L* 

3511 PRINT’FRA2 IONAt*ENTO ’BSCBB > ’ TA 
SSO 0 ' INTERESSE ’BSCQG ) 

3315 FOR PQ-1 TO 2iPRlNTA*<PQ>C«(P0 
UISEXT 

3317 PRINTA*C3>C*C3)UF P-7 THEN 60 
SUB 8343 

3522 IF 2-4 THEN 3332 
5525 GOTO 3380 

3332 PR INTASC4 )C*C4 ) I IF P-7 THEN 90 
SUB 8544 

3380 PRINT’ , , , 

I 1 “ f I 


5565 IF 68» ! OR BB-6 OR B8*4 THEN N 
7*»LEFTOCN7*,B 

5566 IF 2M THEN N5*«-*JG^NTER * 1N6 


20 - 



3367 IF 2-4 THEN PR INT* |*W?0* TH»* 

I "MB** I "N20* | *N3** | *N4*" 1 ■ i GOT 
0 3580 

5570 PRINT* (*N70* |*N2** |*N3«* l*N4** 
|*N30* | *N80* 

5380 PR INT* | 1 1 

1 1 1 

r 

5600 FOR DD-0 TG INTCT0) IDD0-STR0CD 
D) 

5603 FOR QP-LEN(DO*)tl TO 9iD0**‘ • 
HDD* INEX TOP 

3607 IF 00*6 THEN RC0-* 0*10 

X*»* 0*iQY*»* 0* 

■GOTO 5618 

3609 RC*-Rft*iQX*-QI*IQY*«QC* 

3610 IF 2*4 THEN PRINT' | *00** | "QX** 
|*QY** (*RC** |*CI*COD>* l*CK*CDO 
) * [ * l GOTO 3680 

3615 PRINT* 1*00** l*RC** rCI*CDO>* I" 
CK*COD>“ rDE«<DO>* | *DR*(OD ) * 1* 
3680 NEXTDO i DO*- 1 

3683 PRINT* • ■ « 

I I 1 

i ■ 

3630 PRINT» 1 ICLOSE ItOPEN 10,4, 10 IP 
RINTMlOtCLOSE 10 
3630 RETURN 
3800 PR1NT0* 

3803 IF 8*4 THEN 3813 

3806 IF 88*9 8ND UU*0 THEN 3818 * 


3810 PRINT* 14 D0WN1IRVSI 

--IT 0*"U/1 IR 

VOFFI*; i RETURN 

3818 PRINT* C4 D0UN1IRVSI r> 

* ♦ 1 * — */“ IR 

VOFFI*! i RETURN 
3B 13 PR INT* 14 DOUNHRVSI 

1 »«"U/I IR 

VOFFI*; I RETURN 


8150 C*R0*( 1- ( 1 ♦ I >t-T0 )/I I RETURN 
8850 R8«C/'C <l-(l*I>t-T0)/l)i RETURN 
8333 TI *1 -C/R8*l I T0-CLOGC 1 > -LOG CTI ) 
)/LOG< 1*1)1 RETURN 

8400 PRINTO*" 12 00LNHRVS1 T * ♦ 

~ / I # I ~ r / ir- 

■ 

8401 IF 88*7 THEN I9*R8>SS*0iGOTO 8 


407 

6408 I9«CT/R0iS8«0iGOTO 8407 
8404 SS "SS-. 00081 iPRINTQS* I 13 RIGHT 
I *SSt 1001 GOTO 6428 
8407 SS *88^ .0083> PR INTO** 13 LE 

FT1 ’SS* 100 

8410 IF L-l THEN I2-SS 

8412 IF 82*7 THEN Sl-CC-EE*Cl+SS)t- 
T7)/CTB+CC1-C1 ♦S3)t-T0)/S8) > (G 
OTO 8416 

8413 Sl*(C<l*SS>TT0)-l)/8S»(l4l8)tD 
F 

8416 IF SI- 19 THEN 0485 
8419 IF SI >19 THEN 8404 
8422 GOTO 8407 

0483 1 -SSi IK*CI+I>tK-l i RETURN 
8428 IF L-l THEN 18 «SS 

8430 IF 02-7 THEN Sl-CC-EE*Cl*SS)t- 
T?>/CT8+CCl-Cl+SS>t-T0>/SS>)IG 
OTO 8434 

8431 Sl-CC C l+SS)tT0)-l )/SS* C 1 +18 > tO 
F 

8434 IF SI- 19 THEN 8483 

8437 IF S 1 < 19 THEN 8483 
8440 GOTO 8404 

8430 PR INTO** 12 DOkMHRVSl ~l * ♦ ^ 

-✓lèi- e/ ir 1 *i 

19-C/RRiSS-I IGOTO 8434 
8458 SS*SS- . 0000 1 1PRINTO0* I 13 RIGHT 
1*SS* 100 «GOTO 8468 

8433 SS-SS+.0023IPR INTO»; SS *1001 GOT 
0 8478 

8434 SS*SS-.0HPRINTO*;SS*108 
8436 IF L-l THEN 18 «SS 

8438 Sl-Cl-C 1 +SS ) t-T0 >/SS* ( 1 + 12 > tOF 
6460 IF S 1 * 19 THEN 8466 

8462 IF Si >19 THEN 6433 
8464 GOTO 6434 

8466 I-SSi IK« CI +I>tK-ll RETURN 

8468 IF L-l THEN I8-SS 

8470 Sl«C|-<l+SS>t-T0>/SS«Cl+I2>tDF 

8478 IF SI *19 THEN 8466 

8474 IF S1;I9 THEN 8466 

8476 GOTO 8438 

8478 IF L*1 THEN I2«SS 

8480 Sl*Cl-Cl+SS>t-T0>/SS*Cl*l£)tOF 

8488 IF S 1 *19 THEN 8466 

8484 IF SKI9 THEN 8432 



8486 GOTO 8453 

8548 C*»LEFT»(A*<3>,18>*LEFT*<8*C8B 
>,8) + * • l R8-STR6U *1 08 >1 GOSUB 
85531 GOTO 8548 

8541 C*-LEFT*(R*(3>, 18>+LEFT*(B*(1> 
,8)»* * < R**STR* ( I K * 1 00 ) i GOSUB 
8553 

8548 C*(8)«R* 

8543 PR I NTC»; CS( 8 ) t RETURN 

8544 PR I NTQ9J C*< 6 > t RETURN 

8545 R*"STR*(ft<3 ) ) I G0SU8 8553iC*(3> 
■R*l RETURN 

8546 G*-LEFT8(P*<4) ,1B)*UEFT8(B»(BB 
»,8>t* * iR*»STR*( IR * 108 >1 QOSUB 

6553 i GOTO 8548 

8547 Q*-LEFT*(M(4>,18>+LEFT*(B8(1> 
,9>* a *IR*-STR*(IC*180>I GOSUB 
8553 

8548 CG(B)-R*iQOTO 8544 

8548 R«-STR8(A(4))iGOSU0 85531 C*C4) 
•R*i RETURN 

8558 R«-STRS(INT(R+.5)> 

8551 FOR QP-UEN<R*)-1 TO 91 R*« ’ ■ +R 
• I FEXTI R«*R I GHT* CR8 , 9 > I RETURN 
8558 R*-RI8HT*<R*,8>+'X'iR£TURN 
8553 REH 

8558 R*«LEFT* <R*,9> » GOSUB 655 li GOTO 
8558 

8688 OE(DO)-C* ( ( < 1 + 1 ) tDO- 1 )/I >/< ( ( I 
♦1 )tTB- 1 >/I ) I RETURN 
8681 DE ( 00 )-C/T8*DDi RETURN 
8688 DE (DO ) “DE CDO- 1 ) +CK (DO > I RETURN 
8683 DE (DO) -8 t RETURN 
8618 OR (DO)-C*< ( l -( 1 *1 ) t- (T0-DO ) >/I 
)/< (l-< 1*1 )t(-T0>)/I ) I RETURN 
8611 DR (DO ) -C/T0 * ( T0 -DO ) < RETURN 
8618 DR(DD> a C-DE(DD) iRETURN 
B613 OR (DD >"C ! RETURN 
8688 CI (OD) -C*( ( 1 -( 1 *1 > t-(T0-DD+l > ) 
/I >/((!-( 1 ♦! )t(-T8> >/I ) * I iRETU 
RN 

8681 CI (DD)-C*I/T8* (T0-DD+ 1 ) I RETURN 
8688 C I <DO>*Rfl-CK(DD > i RETURN 
8683 CI (DD>«CK(DD-1> tipi RETURN 
8638 CK(00>>C*(l«!>t(DO-l>/(((Hnt 
T8- 1 >/I > 1RETURN 

8631 CK (DO ) -C/T8t ( 1 ♦I*(T0-DD* 1 > ) IRE 
TURN 


i 8638 CK(DO)-CZ*(l*IZ)t(DD)/(((l*IZ> 
tT8-l )/IZ) i RETURN 

8633 CK (DD)*QCt( ( ( 1 ♦IPJtDO-l )/IP> «R 
E TURN 

9380 Z -01 Z*-* tOOltNJ 1 iZZ *8 
9918 G0SU8 16658 
9938 2Z-ZZ + HGOTO 9988 
9958 ZZ-ZZ-1 

9968 IF 22(1 THEN ZZ-QQ-1 
9998 1F 22 ■ >0Q THEN 22-1 

leeee print"[homejmfor yy-i to zzip 

R INTi PR INTi PR INTi NEHT 
18881 PRINT* IUP 1 CRVS1 *R6(ZZ ) 

18808 FOR kU«l TO UiGET UU» 

18883 IF UU*-'!' THEN 700 
10085 IF WW8-CHR*(I3) THEN Z-ZZiRETU 
RN 

18887 IF UU*> a IUPI* THEN 18188 

18888 IF MJ8--I00UN]* THEN 18180 

18889 IF U-13 THEN 18898 
18810 IF U-12 THEN 18888 
18815 IF U-6 THEN 18898 
18819 IF P< >6 THEN 18099 
18829 IF BBOl THEN 18839 

18838 IF kU*- a S a THEN BB-21 GOSUB 118 
10IGOTD 18038 

10831 IF UU*>'Q" THEN BB»3iG0SU8 110 
101 DOTO 18898 

18832 IF bU«>*T" THEN BB *4 > GOSUB 118 
18IG0T0 18888 

18833 IF THEN BB-St GOSUB 118 

181 GOTO 18898 

18834 IF THEN B8-61GOSUB 110 

18t GOTO 18890 

18839 IF GG-8B THEN 10049 

18848 IF l*J*-"F a THEN GG-BB t GOSUB 11 
180i GOTO 10100 

18849 IF 004 THEN 18890 
18851 IF U-5 THEN 18098 

18855 IF UUS"*C a THEN 0-HG0SU8 1128 
0 1 GOTO 18188 

18868 IF UW*- a N a THEN 0-2 1 GOSUB 1128 
8t GOTO 18188 

18878 IF UldS-'I* THEN 0-3:G0SUB 1120 
01 GOTO 10100 

18888 IF UUt-'CHOrei 1 OR OR 

WW*»*lBJPNCÙJ a OR UUM** a THEN 
RETURN 



10090 NEXT 

10100 PR INT" [HOME I * tFOR YY*1 TO 22iP 
R INTtPR INTtPRINTifCXT 

10101 PRINT"£UPJIRVOFFI"A*CZZ> 

10102 FOR bU«l TO Ui SET UU* 

18103 IF 14d*«“M’ THEN 700 

10105 IF 1XJ**CHR*U3> THEN Z>ZZ>RETU 
RN 

10107 IF W4*«"£UP1" THEN 9950 

10108 IF UUM' CDOUN1 ' THEN 9930 

10109 IF U*13 THEN 10190 

10110 IF U>12 THEN 10190 
10115 IF U*6 THEN 10190 
10118 IF P< >6 THEN 10129 

10129 IF BBOl THEN 10139 

10130 IF UklM'S' THEN BB*2iG0SUB 110 
10t GOTO 10190 

10131 IF WU**"Q" THEN BB*3i GOSUB 110 
10IGOTO 10190 

10132 IF W48-T* THEN BB>4iG08UB 110 
101 GOTO 10190 

10133 IF kUS-'B" THEN BB *5 I GOSUB 110 
10IGOTO 10190 

10134 IF kU*« I M* THEN BB*6i GOSUB 110 
101 GOTO 10190 

10139 IF GG*BB THEN 10149 

10140 IF UU**"F" THEN GG*BB i GOSUB 11 
100: GOTO 9930 

10149 IF 004 THEN 10190 
10151 IF LI *5 THEN 10190 
10155 IF UId**"C" THEN 0*1 : GOSUB 1120 
0i GOTO 9930 

10160 IF UU8* "N" THEN 0*2 : GOSUB 1120 
0 IGOTO 9930 

10170 IF WW**"I" THEN 0*3lG0SUB 1120 
0i GOTO 9330 

10180 IF kU8* " rHOME 1 * OR UW**’*" OR 
Uld*-" IBI ANCO!" OR l**«"*" THEN 
RETURN 

10190 NEXT : GOTO 9930 
11004 PRINTO0T4 R IGHTI ERVSJFRAZ.7 0 
• I I \ M RETURN 

11010 P*7 

11012 PRINT0*"£4 R I GHT 1 [ RV8 1 FR AZ IONA 
M. "B*CBB> : RETURN 

11100 PRINTO0* [DONNI £4 R IGHTI IRVS ITA 
SSO INT. ) 1 RETURN 
11200 PRINTO* 


11204 IF 0*1 THEN PR INT" ID0UN1 £4 RIG 
HTHRVS IR ICERCA CAP IT. 0 PREST 
ITO "i RETURN 

11206 IF 0*2 THEN PR INT* £2 00LN1E4 R 
I GHT I [ RVS I R 1 CERCA NUMERO DI RA 
TE ■ i RETURN 

1 1206 IF 0*3 THEN PRINT"£3 DQUNIE4 R 
IGHTI E RVS IR 1 CERCA TASSO INTERE 
SSE M RETURN 

11380 GOSUB 11004 

11310 PR INT" £4 RIGHI! [RVS IF -TASSO IN 
T.FRAZ. 

11320 PRINT" £4 R 1GHT] C RVS 1C *R I CERCA 
CAPITALE 

11330 PRINT" £4 R1GHTIIRV8IN*RICERCA 
/. RATE 

11340 PRINT" £4 R IGHTI [RVS 11 -RICERCA 
TASSO INT. 

11350 RETURN 

12000 IF A2-3 OR A2-4THEN 0OSUB12400 

12001 PRINT" EH0KE1" IFOR YY“1 TO 22 IP 
RINTIPR JNTI PRINT: 1CXT 

12015 PR1NT'£UP1"A«(Z)MF0R QP*LEN(A 
*<2)> TO 38: PRINT" "JUCXTlPRI 
NT 

12066 PRlNT'£UPl"A*(Z)llirf>UT A<Z>tB 
OTO 12088 

12098 ON A2G0T0 610,690 

12069 RETURN 

15800 U*19IG0SU6 99001 GOSUB 12000 

15905 X*9 

15910 ON ZGOTO 15930,15940,15950,159 
60,15970 

15938 2-AHC-A(l>:0N ZGOTO 4100,4530 
,4532,4534 

15340 Z «Al • T0*A<2) :0N ZGOTO 4108,453 
0,4532,4534 

15959 Z -A 1 : 1 *fl < 3 >/ 1 00 : 0 *4 1 1 K * I : GOSUB 

4980 1 ON ZGOTO 4100,4530,4532, 
4534 

15960 IF A 1*4 THEN IA*A(4ì/100:Q*4l 1 
C* I A I GOSUB 4980 tZ*A li GOTO 4534 

159B9 Z “A 1 1 RA*A(4> ION ZGOTO 4085,450 
0,4502 

15970 2 *A 1 1 RA*A(5> tGOTO 4504 

1GSS0 PR INT09" £5 DOLhlI [RVSJ 

_///*! HI * [RVOFFI 

" i RETURN 



Un linguaggio per imparare 

tf /Maria Luigia Nitri - Donato Matturro 

Seconda parte 

Continua il viaggio nel mondo della coccinella 


Prima di affrontar» 2 decotto *j E.UANA.. d semòni utla 
aprirà una parentesi por chiarire gO «copi di qua tt a rubrìca. 
Anche se l'argomento centi ale dato nostre trattazioni rimane 
il Logo , questo non significa che abbiamo decise d trascurare 
tutte le aftrs possibilità didattiche o fferta dai computer. Abbia- 
mo aperto una parentesi, in questo a rtic o lo, relativa alla pro- 
duzione Computer Assistati o Axted Jnstructìon (CAI) e dal 
prossimo numero inseriremo recensioni di prodotti utili neiTtn- 
segnemento, proprio per poro {'attenzione sul vari ampi 

Orni inrorm auCtì oxjdDCa 

Intendiamo far luce sur materiali e dapoetzlQne del docenti s 
auffa tecniche di insegnamento con ratto dal ’ìrtbrmetica per 
poter offrite una guida ragionata, in queato modo speriamo d 
ot to na r e un duplice rieutato; costruito uno rtumenlp d con- 
sultazione per chi gii utilizza metodologie d Inaegnamento 
Informatizzate ed Insegnare le regole a quell tìhe, par oosi 
dire, giocano La prima vote. 


Le variabili 

Un concetto molto dfflde per tutti I neofiti èqueio d variato- 
le. in termini t a cn i d esse è assodalo al concetto di nom e e d 
locazione d memoria. Una varìabffa ha lt> nome pree l e o che 
risponde a precisa regole sintattiche ed a questo nome com* 
spondono un indirizzo di memoria ed un contenuto suscettibile 
di modifiche. 

Questa definizione può trovare fadfrnenle poeto in un ma- 
nuale di informatica, me non aJtrettamo tra ì banchi s co l as ti ci . 
Sarà forse magio non definire fl concetto, ma Cario dedurre 
dire t ta m en te medàra ie pratica d uttoo 
fri E.LLANA, tutte le vote che vogliamo assodare un valore 
suscettibile di modtitóie ed un nome, dobb ia mo seguire qua* 


VARIABILE N* 10 


L'Istruzione VARIABILE oo rr tepon d e rfmbuzxx* LET boi 
BASIC, mantendandone* purtroppo, più o mono I* stona 
cmMvMeni nei parametri infatti la vanadi davano avaro 
nomi d una aoto tetterà, privandoci quindi daMa pcrienzietite 
Oliarla Da nomi $EgnmC&nv!. inoltre, nspauO ai dAhlL*. 8* nouce 
Il rangt dai nomi al numero date le c er e dsl' a lto fa eto mowpi- 
ceto per tre. Tro sono irtiatól tipi di variebiMutltzzabiii: 

- Intero (es A%) 

-rotti (e*. A) 

- stringa (e* Ai) 

Dopo I segno <A ug ua g lianza pud c o m p arir e qualunque 
deprecatene numerica, cosi coma nei Irruzione UET: 

VARIABILE A -A+1 
VARIABILE C% - (3+A)*WT(K) 

VARIABILE B$ » 'CASA** 

Proponiamo qui di seguito alcuni cctmpl propedeutici ali ' u- 
so delle variatali; ai può far tetterà Immedto te mento li poterv 
ziatite di queate prorogtoiva, amne a tool I teguaggL but- 
tando ed eeempte la poeatettà d vertero le velocte d movi- 
mento data ooodnete 


Questo primo stempio di facte stesura produca un movi- 
mento ritmico della coccinelle cria, unite al tkjthetUu Inescanti 
l'esecuzione deil' istruzione, simula r andamento d un 
metronomo. 

100 ALBUM 
110 CESTINO 
120 VOLA 

130 VARIABILE V-200 

140 VELOCITA* V 

ISO VARIABILE N-30 

160 SOTTOPfìOQRAMMA 400;N 

170 FINE 

400 AVANT1 10 

410 INDIETR0 10 

420 TORNA 

Modificando H roterà d V nate riga 130 ai cam b ia e anda- 
mento ritmico; mutando I rotore d N nate riga i SO v stabilisce 
ii numero ot oaiunienD. 

Per compierne te coaa. abbiwno pentito d Mandare una 
procedura cria, con N sistema dai metronomo, produca un 
andamento oedtiatorio variatiti». La coocdnate da una velociti 
minima viene portata gradatamente ala veiodte maesime e 


viceversa La procedura 400 dai seguente programma è tolteti 
te stessa del progromma Metronomo. 

100 ALBUM 

110 CESTINO 

120 VOLA 

130 VELOCrTA' 1 

140 VARIABILE V-1 

150 SOTTOPRQGRAJyMA200£ 

160 SOTTOPfìOQRAMMA 300S 
170 FINE 

200 SOTTOPfìOQRAMMA 4002 
210 VARIABILE V~V+50 
200 VELOCITA* V 
230 TORNA 

300 SOTTOPfìOQRAMMA 4002 

310 VARIABILE V-V-50 

320 VELOCITA* V 

330 TORNA 

400 AVANT1 10 

410 INDIETRO 10 

420 TORNA 


Le righe 130 e 140 Iniztoftzzvio ad 1 rtop ate ro manta la 
vetodti e te vertette V cria r wppraaann l rotore da assi l la r e 
alte vetodtà stesa* segua te c hiam ala dal «ottoprograntna 
200. cria provveda ala produzione d due o e cMarto ni dette 
coccinella ed alTincromenAo dette veiodte (righe 210-220). 
Essendo questuiamo rich ia mato per 5 volto, aunentote il 
tempo di movimento da un minimo di 1 ad un massimo d 251; 
I" incremento di V è intetti fissalo a 50. 

La chiamata dai aottoprogramma 300, infina, esegua, coma 
Si può rtìevaro, lo stesso lavoro secondo un erotememo inver- 
so. infatti netta riga 310 te roriabito V viene d ecrome n te ta da 
250a 1, 



Si può studia/» l'uso di variabili per te realizzazione di 
immagini grafiche di più comp tea st geometria, per stempio 
una sarte di guadati oonoantrid. 

Per realizzare un dtoagno d questo tipo, è necessario indi- 
rizzar» i rogasi su in torrone d scoperti guidandoti naia 
ricerca di un metodo operativo. Si p o ssono costruire, intoni, 
quadrati oonoantrid mediente ''adozione di criteri moto sero- 
pfid: te distanza tra un quadrato ed i successivo è la mate 
detta differenza tra i loro lati. 
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Da questo punto possono prender* il via esplorazioni di un 
territorio conoeciiivo più ampio dova, secondo criteri (Svanì, si 
possono ottenere quadrati ed altra figura geometriche legate 
tra loro da condizioni scoperta a sperimentate nel la pratica 
prima dt essere tradotte In definoìone teorica. 

Quadrati concentrici 

In questa procsAxa, oltre alte adite istruzioni ALBUM, CE- 
STINO. MATITA, troviamo naia riga 130 l'assegnazione dei 
valore Iniziale per il lato L - 10: di seguito P - 4 Mica la 
distanza (passo) tra un quadrato ed I successivo. 

La riga 150 es egue 10 vota H sottoprogramma 200. La 
Struttura di questa procedura sfrutta a sua vota un sattopro- 
gremme per te costruzione dei quadrato (righe de 300 a 3201. 
poi sposta la coccinella senza lasciare traccia (210 VOLA) In 
modo da posizionarla nei punto In cui dovr* parure il disegno 
del nuovo quadrato (righe da 220 a 250). 

Infine calcola iJ valore del nuovo lato (proprio qui risulta la 
necessiti deluso di variabili!) sommando a questo H doppio 
del passo ed ottenendo cosi le concentriate (riga 290), 


100 ALBUM 

110 CESTINO 

120 MATITA 

130 VARIABILE L- 10 

140 VARIABILE P “ 5 

150 SOTTOPROGRAMMA 200.10 

160 FINE 

200 $OTTOPROGRA**IA30Q;4 

210 VOLA 

220 AVANTI P 

230 SINISTRA 90 

240 AVANTI P 

250 DESTRA 90 

260 MATITA 

270 VARIABILE L-L+2T 
280 TORNA 
300 DESTRA 90 
310 AVANTI L 
320 TORNA 



26-Cammodore 



Linea diretta 
con i lettori 


In quMM prima tasi « analisi d E Ll.ANA. ti siamo 
preoccupati di asarrnnam procedure ssmped s d im- 
mediato riscontro analogico per megtto proceder» glifi 
esemplificazione dei comandi e date poasbHKà offerte 
dal Rnguaggio. La nostra idee rimane comunque quella 
d offrire spunti ddattìd per rmaegnanwnto In genera e 
non solo dell'Infor ma ti ca , Affronteremo in saputo pro- 
cedure più complessa, magari legate alla didattica di 
materie specifiche, senza tralasciare le potenziatiti di 
strutture semplici come "Bosco elettronico", utilissime 
nella costruzione di storie figurate. 

Saremo lieti di cogliere suggerimenti riguardo i temi 
da affrontare, nonché di rispondere ■ eventuali 
domande. 

quesrg propesalo potete acrwci ndanzzsndo a: 
Maria Luigia Nini e Donato Mattono 
c/o Redazione Commodore 
Viale Famagosta, 75 - 20142 Milano 


Non è tutto CAI 
quello che luccica 


Se riguardiamo ['elenco dì sfornenti per rtotormsttoa 
didattica, da noi proposto riapertura di questa rubrì- 
ca (Commodore Lugito/agosto 85). troviamo la voce 
"istruzione assistita dai calcolatore" o meglio "softwa- 
re CAf\ 

Nell' impossibilità di esaurire la materia in pochi para- 
grafi. abbiamo pensato di introdurr» semplicemente 
! argomento delegando una trapazione più approfond- 
la all'analisi dei prodotti esistenti In fase di recensionee 
di prossima pubblicazione. 

I termini Computer Assisted o AJòed Instruction, 
istruzione assistita da calcolatore msemma. non ne- 
cessitano spiegazioni di significato: in realtà dietro la 
sigla CAI si nasconde un mondo motto complesso, 

DI pro gr am m i dedicati al'autoapprendimenio di temi 
specifici, primi fra tutti quelli relativi arintorTnitiea stes- 


sa è pieno II catalogo recentemente redatto dall Aca, 
(Associazione italiana par tt calcolo automatico J, Tata 
catalogo, tra l'altro, si riferisce eedusrvamentt alla pro- 
duzione italiana. Urrianafisi quantrtauva, dunque, la- 
scefebbe supporre , su un plano, un 'inflazione di produ- 
zione CAI nazionale, su un altro un suo pieno sviluppo. 
In affetti li mercato è saturo di prodotti ed in questo 
senso l'analisi d cui sopra trova riscontra ma proprio in 
questo riscontro si fondano le maggiori preoccupazioni 
degli addate al lavori. 

Un programma che insegna una quale» materia può 
paragonarsi, almeno sul piano dai contenuti, ad un 
libro: se queste libro viene scrìtto da autori orientali alte 
quantità di pubblicazioni » non alla qualità dette stesse 
potrebbe essere paragonato a sua volta ed un vino di 
gusto sgradevole. Un software GAI deve essere un 
prodotto a "Denomtoazions d'origine": quando astu- 

fan A Sm II |T-J| f-JrHl Si i— fri — wimj m nfl il M l~TR fi trm "■ jj-h j-ii ■ -^1 

ma tali carana nsticna nasca calia coiiaDoraziona di 
esperti della materia a cui m riferisce, di patologi e 
pedagogisti e, solo m ultime analisi, cf abili programma- 
tori. Purtroppo non esìste un consorzio di tutela, quindi 
la valutazione è affidala armante. IT oontenuto. moto», 
pur essendo fondamentale, non è l'unto ingrediente: a 
differenza di un toro, qui concorrono criteri di interattivi- 
tà. dk facilità d'uso, ale... 

Un buon autoapprondJment© si può realizzar» solo 
adottando criteri di Interazione con il fruitore, altrimenti 
si rischia di costruire un mero "voftapagine elettroni - 
co". Se iniziamo ed eliminare questi ultimi dall'ateneo, 
avremo una prima, «ertetele il i fruito ne di prodotto. 

Un altro "taglio * 1 ' deve essere operato in termini di 
specificità; una occhiata più analitica alf'etenoo, ci dà te 
misura della quantità di moduli orientati all'insegna- 
mento deli Informatica 0 detta logica. Forse è più tedi» 
estrarre quelli che non rientrano in queste materia. 

Quello che d resta è quanto basta, torse più, par 
smentire l'apparente «Muntone di "pieno sviluppo". 
Non è tutto CAI quello che luccica, quindi; basti pensa- 
re che II rapporto in ore tra tempo di produzione e 
tempo dt fruizione di un software di autoapprendimemo 
“Doc" è stalo stimato neTortfne di uno a 500/1000. 

In definitiva, nel campo dei CAI italiano c'è molto da 
fare: esistono però sul mercato strumenti aiti a facttlter- 
ne te produzione. Sistemi autore e Linguaggi autprs 
saranno prossimamente argomento detta nostra rubri- 
ca: per mezzo toro anche, a soprattutto chi non cono- 
sca te programmazione , può produne moduli di 
autoapprendimento. 
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SISTEMA ACQUISIZIONE 
DATI CON COMMODORE 64 

dì Angusto Canino 
V2SIP 


L' Interfaccia descritta trasforma H C.64 
in un sistema di acquisizione dati. 

tl C 64 è un computer motto versatile» 
la comunicazioni vano I mondo ««ter- 
no è rasa posatoli» dalla USER PORI 
(porta d’utente), interamente program- 
mabile in BASIC. E' collegata ad uno dei 
due CX COÀ 6626 «attamente al CIA 
2 mappato in memoria dalla locazione 
ODDO (H EX) 56576 (Dee.) alte locazione 
DDFF (Hex>6683t (Dea). 

Le funzioni «volte da tale C.l. sono le 
seguenti: 

a/ 16 linee di tn emi e eton e I/O pro- 
grammabili separatamente; 

EV HandachacJdngeBQiSbk: 

c/ 2 timer a 1 6 bit; 

d/ orologio a 24 ore; 

e/ registro a scorrimento, par I/O 

sanala. 

Per H nostro scopo vanì utilizzata so- 
lo la funzione di I/O a 8 bit. 

La otto linae di I/O sono fiscamente 
col legale alla porte P utente coma 
segue: 



La due linee di Handschacfctog Rag e 
Paa nei nostro caso, non verranno 
utilizzate. 

La porta I/O è allocata alla locazione 
D0O1 (Hex) 56577 (Dea). Viene con- 
trollata dal registro DDft (registro dire- 
zione dati) allocato alte locazione DD03 
(Hex) 56579 (Dea), die stabilisce se in 
dato bit della porte I/O deve essere im- 
postato come ingresso o come uscita. 

Esemplo: 


cf7 d6 d5 d4 d3 <J2 di dQ 
Bit DOR 1 1 100011 
Porta t/O OOIIIOO 
(O-Output I «Input) 


Quinti I bit 0, 1. 5, 6, 7 date porte I/O 
saranno Impostati come tacite, ì bit 2, 3, 
4 come ingressi. 

Per comunicare al computer Quanto 
sopra, dobbiamo scrivere: 
POKE56679J227* 

Possiamo ora descrivere r interfaccia 
vera e propria. 

in Figura 1 6 illustralo lo schema 
elettrico. 

Le caratteristiche sono te seguenti: 


PRECISIONE - +/- 0,005% 

2 INGRESSO « > 1000 Mohm 
FONDO SCALA «1300 


P _ J - • - 1 — , - j. * - - * -^T 

hacenoo rtfftmemo tuia. figura i* si 


può notare che la configurazione circuì* 
tate è molto semplice; Infìtti tutte le fun- 
zioni di conversione me logico digitale 
sono svolte dalli che è un CJ. Motorola 
MCI 4433, 

La tecnica di conversione utilizzate da 
Questo Integrato è quella a doppia ram- 
pa con correzione di zero a potenti 
automatica. 

Per chi votasse «pprotondrs l'argo- 
mento al rimanda ale noia applicativa 
della Motorola. 

L'integrato UZ svolge le torrioni di 
conv e r tito re OC/OC. Serve per ge n e ra - 
re una tensione di rttedmento. molto sta- 
bile, di 2000 mV. Tate torrione deve 
essere tarate tinn i te Pi naturando sul 
ptedlno2dÌU1. 

Queste è Tunica taratore da «tatuare 
b te pc ectoto ne di Mio I ate ri na esp an de 
appunto òa essa. 

Tutta la achada è aJImwnasa a +5V. 
Tale tensione vtene prelevata dalla por- 
te d'utente. 

L'assorbimento è pressoché trascu- 
rabile, molto ai disotto dei Umile stabilito. 

Dai punto di viste bori * are non c'è 
altro da dire, fi prototipo è staio realizza- 
to su schecte filata ed il tutto non ha dato 
problemi di aorta. 

Il programma 

Ora veniamo ai p ro gra mm a. 

E ’ scritto in linguaggio assemblar per 
te gestione detta misura ed in BASIC per 
la visualizzazione. 
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L'utilizzo cMraaembéar è mtttpofv 
ItUl par I tatto cht i ttaflln uadti M 
convertitore vengono preve ntift MCOO* 
do una certa logica a par un tempo bre- 
vissimo. sul*ortSne dai mitissimo di se- 
concio , per cui panaare di catturare tali 
dati In BASIC è I np ana abi l e . 

Per capire magio tale concetto vedia- 
mo coma vengono presentati I dati dai 
convertitore. 


EOO FINE CONVERSIONE 
DS 1 «SELEZIONE DIGITI 
D S2 -SE LEZIONE DfGrt 2 
OS3-SELEZ3DNE DIGIT 3 
DS4 «SELEZIONE DIGIT 4 
00,01 ,02 1 03=DATT BCD 



Uuando DSi è atto (par dna 271 mL 
croS) stipine 00,01 .02,03. * presenta 
I dato In codice BCO che, opp or ti» 
mante codMcato, informa auia potarti, 
fuori «cala, a aul digit più lignacattvo la 
migliaia. 

Si aspetta che vada aio DS2 1 ai ac- 
quista, sempre su Q0.Q1.Q2.03. V 
na rno r l n digit le r ontinsis 

Lo stesso principio vela par 0S2 a 
OSI rispettivamente par te de c ine a la 
unità Par la frequenza di dock utilizzar 
ta, di Circa 66 Krt2.DS1.DS2.DS3.DS4, 
rimangono alti par drca 271 micm s e 
condì ad è appunto questo a tempo in cui 
bisogna acquisirà il dato. Ecco perchè è 
indispensabile futifizzo deir assemblar. 

Il programma aaaaambtar dacodHtca 
DS1-DS4 a sistema il dato, In BCD, In 
quattro locazioni di memoria. 

Sarà quindi H programma BASIC, con 
calma, a prendere i dati, interpretarti e 
visualizzarti. 

Il programma è mollo sempice e vuo- 
le essere solo un esempio di come trat- 
tare I dati fomiti dalla routine in 


Ora andiamo ad esaminale ka posateli 
applicazioni di taie scheda. 

Ovviamente un fondo scala di 1.999 
V è modo limitativo, soprattutto par he 
applicazioni. 

Si pud rimediare a dò un opportuno 
partitore di tensione come In figura 2. 

La precisione della misura è legata 


quindi assolutamente sconsigliai* le va- 
riare J valori. 

Sa non riuscite a trovali (non sono 
valori commerciai) rimangono due 
soluzioni. 

La prima è quella di comprare un mo- 
dulo già fatto per tale scopo. 

La seconda consiste neToperar» 
con delle resistenze in paralieiofìno a 
raggiungere il valore stabilito 


Commodore - 29 



E' possibile utilizzare Me resisten- 
ze t strato metallico per una maggkxe 
stabilità. 

Quindi, con l'aggiunta aita nostri 
scheda di quattro resistenze ad un 
commutatore, puti a mo portare il fondo 
scala fino a 2000 Ve*. 

Avremo: 

con Ci in posizione 1 f a. - t .999 V 
con CI in posizione 2 f.s “ 19.99 V 
conCi in posizione 3 f .a. « 199.9 V 
con CI in posizione 4 U. - 1 9999 V 


AT TENZlONE 

Poiché non sono stati previsti circuiti di 
pfotszkxie per V [per motivi dsempi^ 
tà) è opportuno prestare molta attenzio- 
ne sulla scelta della setta: nei dubbio 
partite sempre oon quota più aita 
(1.999 VU). 

L'impedenza d'ingrasso oon u parti- 
tore si abbassa ai valore dM M. a 

Altra applicazione potrebbe asseta 
quella della misura d tensione anema- 


tiva. corrente continua, corrente alter- 
nata, misura di resistenze, misufa d 
temperature di pressione eoe. I sol Imi* 
□ sono cenati calca taniasta. 

Comunque chi fosse interessato a 
quatti* appiicazwne particolare può 
scriva** alia rMata: potrebbe essere 
I argomento d un futuro articolo. 

Rimaniamo comunque a óapoewo- 
ne. tramite la rMata. a qualsiasi chiari- 
mento si rendasae necesaario. 


5 2 -49132 tGOSUB 11» 
00 I REM Z R ILO 
CABILE 

10 r«0iFOR T»Z TO 
2 +73 1 READ WiPOK 
E T,W 

15 f«r+Wi NEXTi IF T< 
>8872 THEN PR1NT 
■ERRORE l«I DATA 
MENO 

20 B* 1080 t C* 102 3 1 1 
022 i E« 1023 

40 srs Z 


50 Bl» PEEK(B) 

G0 C 1 • PEEK(C) 

70 DI « PEEKCD) 

80 E 1 * PEEKCE) 

81 F 1 “B1 AhO 4 1 IF 

F 1 «0 THEN FI*-* 


82 IF Fl»4 THEN F 

1 *-* * 

85 B 1 *B 1 AFE) 8 
30 IF B 1 -0 THEN 

B>1 


95 

IF 

Bl-8 

THEN I 


1-0 



100 

A-Bl 

aiOBOtcìaioe 


foia 

10 +E l a 1 

180 

GOSUB 10010 

140 

QOTO 

40 


1000 

DATA 

169 

,0,141,3 


881, 

173, 

1 ,881,41 


IBS 



1010 

DATA 

801 

,188,208 


847, 

173, 

1 ,881,41 


13*141 


1080 

DATA 

838 

,3,173,1 


ESI .41 ,64, sei ,64, 
206 

1030 DATA 247,173,1 .SS 
1,41,19,141 ,233 ,3 
,173 

1040 DATA 1, SS 1,4 1,38, 
SCI, 38,208,247, 17 
3 

1050 DATA 1,281,41,19, 
141,894,3,173,1,8 
SI 

1060 DATA 41,16,801,16 
,208,847,173,1,22 
1,41 

1070 DATA 19,141,255,3 
,96 

10000 00 TO 10140 
10010 PRINT" ICLEAR 1 " t 
160S0 N*-STR*<A» 

10030 IF F !*<>■♦■ OR FI 
*<>•-■ THEN FI*»* . 
♦ * 

10039 S*-F1» 

10040 N1»VAL(LEFTS(N»,S 

>1 

10050 N8-VAL<MIDS(N»,3, 

1>) 

10060 N3»VAL(M10*<N*,4, 
1J) 

10070 IF $*■■♦" THEN E- 

1 

10080 IF 6*-'-" THEN E* 

S 

10090 PRiNTTHOfEItUPl' 

; 

10100 FOR 1-1 TO 8 
10110 IPRINT TAB< 10 )S*< 
E, DINIIN! , I >;N*< 


M£ , 1 );N#(N 3 , l > 
10120 (-EXTI I RETURN 
10140 NS<0,!> 

10150 N«<0,2> 

10160 N6(0 ,3) 

10170 N*(0,4> 

10190 N*(0,5> 

10190 NS<0 ,6 > 

10S00 NS (1,1) 

10210 N*(1,S> 

10820 N*(l,3> 

10230 N*< 1,41 
10240 N*(l,5> 

10250 N*( 1,61 
10860 N*<2,1> 

10270 NC(2 ,81 
10280 N*(S,3) 

10S90 N*(2,4) 

10300 N*<2,5> 

10310 N*(S ,6) 

10320 N»<3,1) 

10330 N*C3,2> 

10340 NS(3,3> 

10350 N»(3,4> 

10380 N*(3,5> 

10370 N*<3,S> 

10380 N*<4 , 1 ) 

10390 N*C4 ,2 J 
10400 N»<4,3) 

10410 N*<4,4> 

104S0 N*<4 ,5) 

10430 N*<4,6> 

10440 N»<5,1) 

10490 N*(5,2> 

10460 N*<5,3> 

10470 N*<5,4> 

10480 N*(5,5> 

10490 N*<5 ,6 ) 


10900 

10510 

10520 

10530 

10540 

10550 

10560 

10970 

10590 

10590 

10600 

10610 

10620 

10630 

10640 

10650 

10660 

10670 

10680 

10660 

10700 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

10810 


N»<6, 1 ) 
NS(6,&) 
N*<6,3) 
N*(6,4) 
•N8(6,3> 
N*-,6,6 ■ 
140(7,1 > 
N*<7 ,2 > 
N*<7 ,3 > 
NS<7 ,4 ; 
N*<7,5) 
N*(7 ,6 ) 
N*(8,l> 
Nf (8,2) 
N*(8 ,3 ) 
N»ce, 4 ) 
N*<8 ,5) 
N*(B,6> 
N*(8,l> 
N*<9,8) 
N*(9,3) 
N*(9 ,4 > 
N* (9,5) 
N«<9,6> 

s*d,n 

S*< 1,81 
S*< 1,3) 
S»( 1,4) 
S*( l ,5) 
S*(l ,6) 
S*(2, 1 ) 
S*<2 ,8) 


10820 S*(2,3> 
10830 $*(2,4) 
10840 S«(2,5> 
10850 S*<2,6> 
10860 RETURN 


“ II 
* Il 

» o 






if 
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OPERAZIONI SULLE 
POTENZE E SUI 
RADICALI 


di Mauro Massetti 



Uno dogli argo monti di maggiore in- 
t e resse nell'algebra sono Te opera- 
zioni sulle potenze e sui radicali: 
questi ultimi sono riconducibili nella 
stragrande maggioranza del casi alla 
potenze stesse La padronanza di 
queste operazioni risulta di grande 
Importanza per compiere i primi 
passi successivi nel mondo matema- 
tico e rappresenta il primo vero 
scoglio nella comprensione di que- 
sta scienza 

Si è ritenuto quindi utile affrontare 
questo argomento Strutturando il 
programma da un punto di vista di- 
dattico ai fine di agevolare, a chi non 
ha molta dlmittichezxa con guasti 
probi ami. la comprenaiona a rap- 
prendi mento pratico dagli algoritmi 
utilizzati per "manipolare" questi “stru- 
menti matematici* 1 Per poter effettua- 


re j calcoli utilizzando questi "entr è 
neceseario però conoscere i teoremi 
più Importanti che governano que- 
sto argomento. 

Per questo motivo i teoremi sono ri- 
portali nell'artìcolo corredati di sple- 

f fazione ed esempi, per cercare dì 
ugare dubbi che moito spesso sor- 
gono per I non addetti ai lavori 
quando si affrontano problematiche 
matematiche. 

Potenza di un numero 

Se si consi datano: un numero reale 
A (detto base) e un numero intero n 
maggiora dì 1 (detto esponente), ai 
dice potenza di A secondo l'espo- 
nente n ir prodotto di n fattori uguali 
ad A e Ja sua rappresentazione sim- 
bolica è: 


A n oppure Atn 


Tutto ciò significa che se ad esem- 
plo. si considera ta potenza 2T3 II ri- 
sultato di questa operazione e 3 poi- 
ché si moltiplica la base 2 per sé 
stessa tante volte quanto indicato 
dall'esponente, nei nostro caso 3. e 
cioè; 

2*3 * 2 ' 2'2 & 


Di conseguenza sono di Immediata 
comprensione le seguenti regole 

A‘n*A'm = At(n+m): 

A’n/Aim « A'(n-m) 
infatti airi 

Ain'A'm ■ A (moltipllcato n volte) * 
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A (moltipllcato m volli) = AI(rH-m): 
ad esemplo: 

AtrAi? - 

(A*A) - (A'A*A) - 

A* A* A' A* A * Al (2+3) = 

AI5 

e inoltri» Atn/Atm — A {moltiplicalo 
n volto) /A {moltiplicato m volta) = 
AT(rvm): 
ad esempio: 

A*3/At2— 

(A*A*A) / (A*A) * 

A’AWA- 

At(3-2)«AI1-A 

Alla difinizlom procedente ai devo- 
no aggiungere duo asserti (afferma- 
zioni dia non al dimostrano) che so* 
no: 

ATI» A e AT0 = t 

Questo afferma, come tutti sanno, 
che un numero elevato aJf'unltà è 
uguale a sé stesso, mentre qualun- 
que numero elevato a zero è uguale 
et. 

Per esemplo: 

2H «2 mentre 10000010= 1 

Continuiamo ad esaminare le poten- 
ze; se n è un intero positivo e Al 
diverso da zero si ottiene ta seguente 
espressione: 

AT(-n) » 1/(Aln) 

Commentiamo un attimo q usata re* 
lezione che può forse suscitare delle 
contraddizioni. Bisogne osservare 
infatti che il segno che compere 
aJI'esponente del membro di sini- 
stra non va inteso Ih senso algebri- 
co in quanto non rende negativo II 
numero n che i stato posto positivo, 
ma Indica che l'esponenziale assu- 
me la forma dei membro di destra 
cioè 1/Ain, Vediamo di chiarire me- 
glio tutto questo mediante un esem- 
pio numerico: 

21 (-2) * 1/(212) ■ 1/4 
infatti sarà ad stempio: 

212/214 — 2T(-2) 
ma 212 = 4e 214- 16 
a dunque sarà: 

1/4- 4/16 -2t2*2tH) = 

21(2-4) - 21 (-2) - 1/212 - 
1/4 

Come si vede quindi l'esponente ne- 
gativo trasforma la potenza net suo 
reciproco. 

Facciamo ora 11 passo successivo 


considerando due potenze di Pese A per A >: At(m-n)>i; Àtm>Atn; 
e B ed esaminando come le possibili Ad: Al(m-n) <1; AlmCArn; 

relazioni che intercorrono fra le beai * 

Radiceli 


portano ed analoghe strutture per le 
potenze stesse. Infatti, se A e 8 sono 
due numeri reali positivi per cui sus- 
sistono la seguenti relazioni: 

A-B oppure A<B oppure A>8 

al ricava che per le potenze Aln e 
Bfn con intero positivo è rispettiva* 
mente; 

1) Afn-Brn oppure 
Atn<8ln oppure 
Ain > Bln 

mentre se n è preceduto dal segno 
si ottiene: 

2) Af(-n) - Bt(-n) oppure 
Af(-n) > Bi(-n) oppure 
Al(-n> < Bl(-n) 

per meglio chiarire quanto detto con 
l'enunciato precedente facciamo ora 
quanche esemplo numerico: 

se A— 2, B=2 e pf=2 

212-212 
se A=2, 212 
212012 

SS A=3, B=2 e n=2 
312 >2t2 

se A-2* B=2 e n— 2 

2T(-2) — 21 (-2) 
ss A=2, B=3 e n=-2 
2 t(- 2), >31 (-2) 
se A— 3 , B — 2 e n =- 2 

31 (-2) < 21 (-2) 

Per dimostrar* questo è sufficiente 
scrivere n volte le relazioni date e 
quindi sommare membro a membro; 
è inoltre dimostrabile la veridicità 
della proposizione inverna- 
si può quindi affermare che le po- 
tenze Intera positive di un numero 
reale maggiore di uno crescono coi 
crescere dell'esponente, mentre di 
un numero reale minore di uno de- 
crescono col crescere dell'esponen- 
te. 

La validità delle refezioni enunciate 
permette di dedurne deile ulteriori 
che sono espresse qui di seguito; 

se A— 1 Aln - 1 

A<1 Atn < 1 

A>1 Afn > 1 

Esempio: 

se Atei; n— 2 112*1 

A- 5; n=2 ,512 <112 

A-2: n=2 212 >112 


Si può agevolmente dimostrare che: 
dato un numero reale positivo A= 
(Al,.,,, Am) ed un numero positivo n, 
esiste uno ed uno sol numero reale 
poeitivo X per cui risulti verificata la 
condizione: 

XTn— A 

e questo significa che la potenza n- 
esime dì X è uguale al numero dato 

Praticamente il radicale può essere 
visto come l'operazione inversa della 
potenza, infatti per dimostrare quan- 
to asserito precedentemente si con- 
sideri, In una classe CI, tutti l numeri 
razionali positivi le cui potenze n-e- 
sime siano minori o uguali ad A e in 
una classe C2. tutti i numeri razionali 
positivi le cui potenze n -esime siano 
maggiori di A. 

Le classi Ci e C2 determinano una 
sezione del campo razionale poeitivo 
In quanto contengono nel loro com- 
plesso tutti I numeri razionali e inol- 
tre ogni numero contenuto In CI ri- 
sulta essere palesemente minore di 
ogni numero contenuto In C2. Le 
classi CI, C2 definiscono quindi uno 
ed un sol numero reale positivo X. 
Proviamo ora a dimostrare quanto 
asserito: se indichiamo con ci e c2 
due membri qualsiasi appartenenti 
rispettivamente a CI e Cz avremo: 
et < X < c2 e quindi 
cim<Xm<c2tn 

Infatti In base alla modalità di scelta 
fatta per i numeri d,c2sl avrà: 
cim<A<c2tn 
de cui si otterrà: 

XI n— A 

poiché risulta unico il numero com- 
preso fra ci In e c2 T n per tutti i pos- 
sibili valori di ci e c2. 

Proprietà del radicai! 

Vaniamo ora, come precedentemen- 
te fitto per le potenze, ad esaminare 
le proprietà salienti dei radicali. 

Il valore di un radicele aritmetico 
non csmbla se II suo indice e l'espo- 
nente del radicando si moltiplicano 
per uno stesso numero; si ha Infatti, 
per A>0 • qualunque sia l'esponen- 
te positivo p, la seguente espressio- 
ne: 

(Àim) r (1/n) - (Atmp) i fl/np) 
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questo significa che e leva no o am- 
bedue ì membri di quésta ugua- 
glianza alla potenza di esponente np 
si ha: 

((A'mp) ? (1/np)) ■ np = A'mp 


Per meglio chiarire si riporta II se- 
guente esempio numerico: 

(S’6) t (t/8) *= 

mmn m pwj = 

(5 T 3) * (1/4) 4 


M va ore di un radicate aritmetico 
non cambia se il suo indica e l'espo- 
nente del radicando si dividono par 
un divisore comune. Questo teore- 
ma è dimostrabile considerando che, 
come si è già puntualizzato prece- 
dentemente, l'operazione di estra- 
zione di radice n*esim< equivale ad 
un elevazione a potenza con t spo- 
nente uguale al proprio inverso. L'e- 
semplificazione di quanto sopra ri- 
percorre lf stfssa metor oicgls del- 
l'esempio precedente. 

Di particolare importanza pratica ri- 


sulta lo studio dei "radicali quadrati- 
ci doppi**. Un radicale quadratico è 
un'espressione data nella forma se- 
guente: 

{ft+(bt(l/2})) t (1/2) oppure 
(a-(b'(l/2))) f (t/2) 

in cui l'espressione sotto radice al 
chiama radicando mentre la potenza 
risulta essere l'esponente della radi- 
ce. 

Per risolvere questo radicale vengo- 
no utilizzate le formule a seguito ri- 
portata: 

f(a+{ai2-B> t (1/2})/2)+ 

((a-(a'2-B] I (1/2) )/2) 
oppure 

{{i-Ha'2-b) T <i/2))/2)- 
((Mil2-B)T(1/2))/2> 

A questo proposito però, bisogna 
osservare che le formule di risolu- 
zione dianzi proposte sono applica- 
bili solo nel caso in cui l'argomento 
del radicale, che è ar?-B, è un qua- 
drato perfetto- in caso contrario è 
opportuno lasciare il radicalo nella 
forma assegnata. Anche in questo 
caso si riportano due esempi nume- 
rici: 

(8-e(48r<1/2»)1(1/2) » 

MB- (8'2-40) 1(1/2) )/2) + 

( ($-{6 * 2-48) l (1 /2) )/2) • 

61 ( 1 / 2 )+!! (t/2) 

(3+(2T(1/2)))t(1/2): non semplifl ca- 
bile poiché (3*2*2) non è un quadra- 
to perfetto. 

N programma proposto è stato esclu- 
sivamente concepito per una fun- 
ziona esplicati va -didattica suirargo- 
mento e non come strumento di 
semplice calcolo. 

Li parte relativa alle potenza utilizzi 
intatti solo delle variabili "pure", 
senza che ad esse venga associato 
alcun valore numerico, quali ad e- 
sempio: A; -A; eoe. 

Nella parte relativa ai radicali doppi 
al è dovuto, invece, forzatamente far 
ricorso alt'ulllizzo del numeri onde 
poter calcolare 11 valore deirargo- 
mento del radicale per verificare la 
conseguente possibilità di semplifl* 
dazione. 

Per le regione sopra esposta il pro- 
gramma realizzato si basa quasi 
esclusivamente sulla questione con- 
trollata delle stringhe. L'analisi e la 
comprensione dello stesso sono gui* 
date dalla documentazione contenu- 
ta nel listato di seguilo riportato. 


34 -Commodore 




100 

REM 




102 

REM 

* 

POTENZE DI NUMERI E 

* 

104 

REM 

* 

RADICALI DOPPI 

* 

10S 

REM 

4 

01 

* 

108 

REM 

* 

MAURO MASSETTI 

* 

110 

REM 




112 

REM 

* 

RICHIAMO SUPROUT INE 

* 

1X4 

REM 

* 

MASCHERA INIZIALE 

* 

11© 

REM 

*t**ts****4 ************** 

1 19 
120 

GOSUB 

433 


122 

REM 

4 

MASCHERA MENU' 

* 

124 

REM 





12© PRINTTCLEARl-tGOSUB I49»PRIN 


T“C3 00UW3I1© R 1 OH T 3 MENU * PR I 
NC 1 PALE “ 

128 PR INT* C DOWN 3 C 10 RlGHTJi * FOT 
E NZE DI NUMERI* 

130 PRJNT- EDOUSin IO RIGHTJ2 - RAD 
ICAL l DOPPI- 

132 PRINT-CD0WN3U© RIOHT33 - FIN 
E UTILIZZO £3 D0UIMU17 LEFT3FA 
RE LA SCELTA ■ 

J3-Ì ©ET SC ! I F S**- p THEN 134 
I3B 1F ASC ( SS > <43 OR ASCCS*}>31 T 
HEN 134 

138 PR INT* C C LEAR 3 * i PN VAL<S8>GOTO 
193,244,472 

14© REM ************************* 
142 REM « SUE3R0UTINE CORNICE * 
144 REM * ESTERNA * 

148 REM ************************* 
140 FDR H*3 TO HFOR K»I024*H*gS0 
TO 1063+H*9G0:FOKE K,102HM£K 
TKtPCKTH 

t9© FOR K»:0S4 TO 1944 STEP 43 1 PO 
KE K # I ©2 : P DKE K + 39 , 1 02 * NEKTK » 
FRI NT # [ H0f*E 3 " t RETURN 
192 REM ************************* 
IG'I REM f V IDEATA ESPLICATIVA * 


19© REM ************************* 

193 FOR 1*1 TO 21F0R JM TO 2»M*C 
I,J>**-l hCKTJ i NEXT J 

1S© PR I NT" t CLEAR 3 “ * GOS'JB 148IPRIN 
T-I00WNJI2 RIGHTJUNA POTENZA 
Z * COMPOSTA OAi B 

IS2 PRINT-C00WNU2 RIGHT1UNA BASE 
I A* 

164 PRINT-C2 RIGHT3ED IL RELATIVO 
ESPONENTE» N“ 

IBS PR INT-C2 D0UISIH2 RIGHT3E SI P 
RESENTA NELLA FORMA : A tN“ 

168 REM ************** *********** 
170 REM * RICHIESTA DATI E * 
172 REM » V IDEATA RISULTATI * 

174 REM ************* ******* ***** 
176 IMtOOSUB 330 

178 PR INT - I 3 UP 1*11*1 + 11 GCSUB 330 
180 REM ************************* 
132 REM * TEST UGUAGLIANZA BASI « 

194 REM ************************* 
136 !F M*C ! , 1 1 > THEN 218 
ISO REM ************************* 
ISO REM f VIOEATA RISULTATI * 
192 REM 

134 GOSUB 3 76 » GOSUB 390 
196 PRINT- E2 QQUN] C2 R IGHT1 - ESPO 
r^NZIALI CON BASI DIFFERENTI 
«■ * 

1 SS PRINT-IOOUIM3I9 RIGATILA LORO 
NOTAZ IONE E * l • 

200 PRINT P C DOLISI] E 10 R 1 GHT1 C " +M8< 1 
,l»+*f *+M0<l 
+" t -+K*t2,2 ) + - > ■ 


202 

REM 




204 

REM 

* RITORNO 

AL MENU * 

< 

20© 

REM 




208 

OET 

set IF S**“ ■ 

THEN ?08 


210 

GOTO 

12© 



212 

REM 




214 

REM 

* VIOEATA 

RISULTATI 

* 


216 REM ************************* 
218 GOSUB 37© i GOSUB 404 

220 PAINT" C 2 OOWN3C4 RIGHT1- ESPO 
NENZIALV CON 8ASI UGUALI 
222 PRINT-COOUisTHS RIGHT1LA LORO 
NOTAZIOrC E* t 1 

224 PRINT-C00WNKI4 R 1 GHT3 * +M*< i # 
l > + * t “ *HG 

22© REM ************************* 
228 REM * RITORNO AL MENU' * 


£30 REM 

£32 GET S*HF S*« ■ • THEN 232 
234 GOTO 126 

238 REM ************************* 
236 REM * MASCHERA PRESENTAZIONE» 
£40 REM * RADICALI DOPPI » 

242 REM ************************* 
244 PR INT" [OLEARI • * QOSUB 148'PRIN 
T-CD0USIJC2 RIOHTJUN RADICALE 
□OPPIO SI PRESENTA- 
£46 PR INT* £2 RIGHT3 [SELLA SEGUENTE 
FORMAI -iFLAG-Ol 2*»"+* 

248 PR I NT “ C DOW^J 1 C 2 R IQHT3 CA+X <B t C 

£50 PR INT" 12 DOtNICS R IQHT 3 FORNIR 
E I VALORI OH A m $ I G03UB 4 
32 1 A «VAL < X8 ) 

£50 PR!NT-t£ RI8HT3 

3 “Il GOSUB 43£iB»VAL 

ex*> 

254 PRINT^ie RIGMT3 

K - 1 I GOSUB 432 IX -VAL 

CX*) 

256 REM ************************* 
258 REM * TEST QUADRATO PERFETTO* 
260 REM ************************* 
£62 Ri-Xt2*BJR3«At£-Rii IF R3<0 TH 
EN 466 

£S4 R2-SQRCR3) t IF XC0 THEN FLAG-1 
266 IF R£ “ 1 NT C R2 > > . 60000000 1 THEN 
320 

268 REM *«*****»»«*****»**»**»»*» 
£70 REM * ELABORAI IGf'C E V IDEATA* 
272 REM * QUADRATO PERFETTO * 
274 REM »»***«»»*«**********«»»»* 
276 X-tA+R£>/Hi Y-<A-R2)/2 
278 IF SOR CX ? - INT C SQR <X > >< * 000000 
001 THEN 262 

£80 X *- m < a +R I QHT* < STRS C X ) * LEN < S TR 
*CX>)-!)*" Jf < 1^2) • iGOtO' 284 



282 X» INT < SOR CX ) ) IX*- ■ t ■ +R IBHTSCS 
TR* < X ) , LEN < STR* OC ) > — 1 > + *' > * 

284 IF SOR <Y>- INTCSQR ( Y> )< • 000000 
001 THEN 286 

266 Y*--*-+RIQHT*e8TR*(Y>,LEN<STR 
*e Y> >-I)+“)TCl /2 > ■ l GOTO 290 
288 Y-INT(SQRCY))IU*-LEFT*<BTR*CY 
) , l 71 Y*-"< ■♦RI0HT*<6TR*<Y> ,LE 
N< STR*C Y) >-!) + *)■ 

280 IF FLAO-I THEN Z*-'-' 

282 PRINT* ££ DOWN3C4 RIGHT3- RADI 
CALE QUADRATICO PERFETTO -■ 
294 PRINT-tDOWIUe RI QHT 3 IL RI8U 
LTATO E 1 t • 

£36 IF £*•“-■ AMI U*-*-* THEN Z8- 
V - 

£38 IF !*--♦■ AND U8-*-* THEN Z*- 

300 PR I NT ■ I DOWN 3 C 1 0 R I GHT3 ■ ♦XB+ZIT 
+Y* 

302 REM ************************* 
304 REM » RITORNO AL f€NU f # 
3 08 REM 

308 GET S**IF 8»» BB THEN 308 
310 GOTO 126 

312 REM ************************* 
314 REM * ELABORAZIONE E V IDEATA* 
316 REM * QUADRATO NON PERFETTO * 

318 REM ************************* 
320 A*-STR*<A?UF LEFT*<A*, 1 >- p ** 
THEN A3—R I QHTB CAB, LEN C AB > - 1 > 
322 X*-STR*CX>i IF LEFTB<XB, 1 > - ■ ■ 
THEN X*»* , + -+RIGHT*<X*,LENCK* 
>-l) 

324 BB-STRB CS ) I IF LEFTBCBB, 1 > « * * 
THEN BB-RlGHTBCBB,LEN<iB>~I> 
326 PR INT* C 2 DONNI £2 R I GHT ] - RAPI 
CALE QUADRATICO NON PERFETTO 

* ^ > 

328 PR I NT ■ [ 8 RISHT1E NON 8EI>PL IFI 
CABILE* 

330 PR1NT* C8 RIQHT3 < *+A*+X*+" t * +8 
*♦* t < l/£> >)t<l/2>* 

332 REM *»S***««**«**«*«*»«S»*SSS 
334 REM * RITORNO AL t*ENU * * 

336 REM ****tt«*«*********««»t«»* 
338 BET 8*i IF S*- ■ * THEN 338 
340 GOTO 126 

342 3EM •#**•******»******••••*#* 
344 REM • SUBROUTINE IfWISSIÒhE » 
346 REM * OATI ESPONENZIALE * 
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348 REM ************************* 
350 PRINT* 12 D0UMIC2 R IGHT 3F0RNIR 
E LA BASE t 

17 LEFT J * I 

352 BET SSi IF 8*»** THEN 352 
354 IF 8S-CHRS<13) THEN PRINTiOOT 
0 358 

356 M#< I ,1 >*M*< 1,1 >+SStPRINTSSJ tG 
OTO 352 

358 PRINT* C2 RIGHTIFORNIRE IL REL 
ATI VO ESPONENTE « *1 
360 OET S*« IF 80*** THEN 360 
362 IF 8S-CHRS<13> THEN PRINTIOOT 
O 366 

364 MS< I ,8 > *MS< I » 2 ) ♦SSIPRINTSSJ *0 
OTO 360 
366 RETURN 

368 REM ««uMMitmmmttim 
370 REM «SU8R0UTINE ELABORAZ IONE* 
372 REM » STRINGA DATI * 

374 REM ************************* 

376 IF LEN<MS<1,I)*M8<2, l>)-2 THE 
N RETURN 

376 FOR 1*1 TO 2UF LEFTSCMSt I , 1 » 
THEN MS<I,1>-RIGHTS(M 
S(I,1),1) 

380 NEXT li RETURN 

382 REM ************************* 
384 REM *SU8R0UTINE ELABORAZIONE* 
386 REM • STRI NBA DATI * 

388 REM •***•**•*•*****••**••**»* 
380 FOR 1-1 TO 2 
392 IF LEN(M8(I,2))-1 THEN 402 
334 IF LEFTS<MS< I ,2), 1 >-*«■* THEN 
MS(I ,2>-RIGHTS<MS(t,2),l)IG0T 
O 402 

396 L-LEN<MS< 1,1)) 

388 MS( 1,1) -LEFTSCMSC 1,1) ,L- 1 ) ♦* C 
I/*+RIGHTStMS(I, 1), !)+*)* 

400 MS(I,2)-RIGHTSCMS<I ,2>,1) 

402 NEXTI i RETURN 
404 FOR I»i TO 2 

406 IF LENI MS < I ,2)>”I THEN MS< I ,2 
>■■**♦146(1,2} 

408 NEXTI IM*-M*< 1 ,2>+MS<2,2> 

410 AS«LEFTS<MS,I } IB*- i K , DS(MS,3, 1 

> 

412 IF AS-BS AND A*-’** THEN KS- * 
< * *R IGHTS t MS , 3 ) ♦ ■ > * i RETURN 
414 IF AS-BS ANO AS-*-* THEN 420 
416 IF LEFTSCMS, !>»•■♦" THEN MS-RI 
GHTSCMS .3 > 


416 MS» * < • ♦MS* * ) * • RETURN 
420 NS-*<*+M108<MS,2,l)+*-*+MIDS< 
MS, 4 ,!>♦•>• 

422 MS< 1,1) ■LEFTS<MS( l,l>,L-l>+*t 
\/ m ♦RIGHTS<MS( 1,1), !>*■>■ IRET 
URN 

424 REM ************************* 
426 REM * SUBROUTINE IMMISSIONE * 
426 # REM * CARATTER I STRINGA • 
430* REM *•*•••***••*•***•*••••*•* 
432 X6-** 

434 OET 8SI IF SS-** THEN 434 
436 IF S6-CHR0< 13) THEN 440 
438 PRINTSSI IXS>KS *661 GOTO 434 
440 PRINTl RETURN 

442 REM ************************* 
444 REM * SUBROUTINE V IDEATA DI « 
446 REM • PRESENTAZIONE • 

448 REM *****•**•»•*•******•**•»• 
450 PRI NT *C OLEARI *iBOSUB 148 
452 FOR H-B TO I IFOR K«M06*H*B00 
TO 1141 ♦H*800 < POKE K, 127 «NEH 
TMNEXTH 

454 FOR K* 1 146 TO 1806 STEP 401 PO 
KE K , 1 27 1 POKE K +35 , 1 27 1 NEXTK I 
PR INT* £HOf*E ] * 

456 PRINT* 17 DONNI t 10 RIGHTIPOTEN 
ZE 01 NUIERI E* 

458 PRINT* [13 R IGHT1RAD1CALI OOPP 
I* 

460 PRINT* 14 OOkNHIS R1GHTI01* 
462 PRINT* [001*41 1 12 RIGHTI MAURO M 
ASSETTI* 

464 FOR 1-1 TO 5000 iNEXTI i RETURN 
466 PR INT* [DOWN] [4 RIGHTI IL RADIO 
ALE DOPPIO E* NEGATIVO* 

468 GET SSHF SS-'* THEN 488 
470 GOTO 244 
472 END 
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KH 


computer System 


s.a.s. di Gloriano Rossi e C. 

C.so Porta Nuova 46 - 20121 Milano 
Tel. 02/6599547-6575115 


rivenditore autorizzato 

C* Commodore 

A ItaltelIMMMfe] 


NCR 


Software 

Prodotti 

Accessori 

Assistenza 


Assistenza software per Commodore, Sanyo, NCR, Sirius-Victor e tutù ì 
personal compatibili IBM-PC. 

KHMODEM, il demodulatore ideale per la trasmissione e ricezione dei dati 
(Baudot, ASCII, RTTY, CW). 


Rivenditori di zona: 

CREMA: EDP ANSWER di A. Guerci - Via Borletto I - Tel. 0373-59140 



AREOGRAMMI 


ftìbmm Gallanti • Luigi Para boschi 


Spesso nelle nostre attiriti Quotidiana ci 
troviamo nelle necessità di elaborare 
dati e ricavarne una rm prr e se n t eztone 
grafica die die rii ro edieiafTiento. a noi o 
al noafro lettore, un quadro motto preci- 
so e chiaramente leooÉ^e deHa realtà 
Che spesso è dfffidk» de analizzare nei 
rapporti deNs grandezze rasi. 

Chi non è aj fflcisnts mente disinvolto 
nell' uso di rappresentazioni grafiche 
spesso si trova in difficoltà quando deve 
dare dalia realtà misurata un'immagine 
chiara e di uso immediato. 

Con un elaboratore e un pro ga m m i 
die aiuti lo sviluppo del nostri dell, tutto 
può cimentare semplice e soprattutto ra- 
pido neto esecuzione 
Fefrtono numerosi matodi tif reppre* 
tentazione grafica: Diagrammi, Orto- 
grammi, Istogrammi, Diagrammi a coor- 
dinate polari. Ideogrammi, eco . 

Per l’elaborazione dsi nostri dati ab* 
diamo scelto gU A/eogrammL ir grato di 
questo tipo permette di rapprnssnfiwi i 
valori di una carta grandezza con settori 
circolari di uno stesso cerchio, le cui am- 
piezza stono drittamente proporztansi 
ai valori che Si vogliono rappr e se nt are. 

Supponiamo che la p opo la zi one sco- 
lastica di una scuola roseto sta d 300 
allievi dal qual SO frequentino la terza 
desse, 100 la seconda desse 1 150 la 
prima classe e proponiamoci di reppre* 
laniere glaucamente tale dMfturiova 
SI disegna un cerchio di raggio a pia- 
cere, convenendo che eeso rappresenti 
l'Intera popolazione ecotostica, si (iride 
poli 'angolo al centro, peri a 300 gradi, in 


partì direttamente proporzionali a 50, 
100, 150 

In pratica gii alunni della terza desse 
saranno rappresentati da un settore cir- 
colaro, U cui angolo ai centro sarà dato 
dalla seguente proporzione: 

360 : 300 — X: SO 
Cioè: 

360 

x» -*6cr 

300 

CIÒ significa che dovremo diseg na re 
un settore circolare con un angolo al 
centro di 60*, In modo analogo si proce- 
derà con gli altri dati. 

Il risultato è mostrato in figura 1 . 

Lo stesso tipo di rappresentazione 
assolare può essere utfiizzata anche nel 


caso In cui dati dì un fenomeno risultino 
eepreesl ri penrontuetod untotele (vedi 
figure 2). 

Ad esempio: In Italia si ha la seguente 
ripartizione della popolazione 
Popolazione rurale • 52% 

Popolazione urbena - 48%. 

Come per r esemplo pre c edente per 
ottenere gli angoli al centro del veri set* 

J» - -J - ■ É - -J . rt ■ - - . .a-r. m. 

ton oroowi orni* stesso cercrso. Daste- 
re arvioefB oou m pani oireriarnerTtepro- 
porzjonaN a 52 e a 48l 
Avremo cosi: 

360: 100-X:52 

360 

P opoiazione m relè - ■■■ ■ » "52-167* 
12 ' 

100 
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Dall* esemplificazioni dite risulta a b- 
baslanza semplice ricevere i dati neces- 
sari per la i ^pmrti t Ione grafica. 06 
comporta evidentemente, un notevole 
dispendio di tempo e di energia B pro- 
gramma dì# presentiamo ci aiuterà a 
ricavare le necessarie i >pfnaani<ei imi 
solo introducendo nel nostro elaborato* 
re I dati reati In nostro poeeeeeo: i dati 
saranno elaborati, verte stampata la 
rappresentazione sul video (e sulle car- 
ta), sarà creata una pagina grafica con 


tutte le indicazioni riaccasarle per la iat- 
tura* oompreea una legenda dettagliata. 


Ale riga 100 si apre la pagina g rafi c a 
• si inserisce 1 c o mand o MULTI per de- 
terminare 1 tre colori da usare per la pa- 
gina titolo (righetto, 130. 150, 100), 
AH* riga 170, dopo breve pausa, si 
toma alla pagina d testo. 






Affa TdO al rimanda ad una aubroutine 
(righe 090-670) naia quate eooo visus- 
Izzata sintetiche istruzioni 

Affa 200 al apre te pagina dei pro- 
gramma vero e proprio con te ric hi es t a 
del Soggetto deTAreogramma" (riga 
21 0) accompagnata da una Irtfcazion* 
grafica dette quantità d caratt eri utitìzza- 
biii (massimo 38) par una adeguata rv 
paginazione (riga 230). 

Affa riga 260 è ri ch i esto l rannero de- 
gii “Oggetti deTindagi ne'\ massimo 17. 
Il numero mesiimo degl oggetti è timie- 
to a 17 per po te r offrire una impagin ar to- 
ne chiara e teggttite tata; legenda 4 * che 
comparii aula pagina grafica, a tentata 
ótefarsogramme. Superando l numero 
17, il video cortencte a lampeggiare evi- 
denziando l'errore (riga 280) per toma- 
ie, dopo qualcha secondo. Ha 260, 

Affa riga 290 vengono d teieneio nete 
te variabW (tei programma; della 300 tete 
330 avviene hnaerimenlo del noma del- 
l'oggetto con accoppiata I rotativo 
valore. 

Deità $40 affa 370 sì assegna alte va- 
riatila TT I vepre dall aarmta d tutti t 
dati Introdotti. 

Affa 390 al apre te pagina grafica e *1 
disegna un cerchio di raggio 70 oon cen- 
tro in ooortentate X-200, Y-100; tate 
po siz ione è scesa per pemeQera di 
stampare, aia tentata deTareogram- 
m, te teganda rotative te dati introdotti. 

Dalia riga 410 affa 460 ai definirono 
te ampiezze dai settori { A6) e te cteecte- 
no te loro b i s ettrici (U). 

Affa 470 si traodano i raggi che definì- 
scono 1 settori. 


Alte 460 te numerano progressive^ 
mente i singoli settori 

Aia 500 te stampa al' interno di ogni 
settore il tuo valore retee. 

Gaffa 540 affa620 te stempro te le- 
genda e I molo Che avremo dato ella 
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10 REM********************* *********** 


20 REM* 
3 0 RE M* 
40 REM* 
Sd REM* 
60 REM* 
70 REM* 
60 REM* 


OREOGROMMI 

BY 

ERtCS 0ALLAROTI 
& 

LUIGI FORABOSCHI 


90 REM********************************* 

Si REM* IL PRESENTE PROGRAMMO * 

92 REM* FUNZIONO SUL COMCDORE 64 * 

63 REM* ED UTILIZZO IL PRO GROMMO * 

94 REM* SIMON' S BASIC * 

SS REM* * 

96 REM********************************* 

100 HIRES0,ìiMJLTI 0,8,3 

110 TEXTI5,3,-R OPPRESENTOZ ION I*, 1,2,4 
120 TEXTIB ,40 , *G R A F I C H E", 3,8,3 
130 LINE® ,60,319,68 , 1 

140 TEXT3, 100 , “0 RÉOGROMM I ** ,2,2,8 

150 C IRCLE60 , 170 , 15,22 , 1 i LINES© , 143,30 ,191,1 i LINE 66 , 170 ,04, 170 , I 
160 PAINT90, 160,2 1POINT30, 173, 3IPAINT70, 175,1 
178 P0USE3imMiPRINT*a" 

i fln finsi ideai 

196 REM*** INTR00U2 IONE TITOLO *** 

286 PRINT'^HMHHP REOGRAMM !■' 

216 PRINT'MHKftrtil IL SOGGETTO DELL ‘ AREQGRANtlA " 

226 PRINT'aMHMftMASSIMD 39 CARATTERI >■* 

236 PRINT' f ...S....6. . ..S.. . .6.. . .9... .6... .3..6V 
240 WUT F* 

236 REM**** INTROOUZ IONE DATI *•* 

268 INPUT -J^^JMERO DEGLI OGGETTI DELL 1 INDAGINE gRCMAX 17) 'IN 

278 REM**** ERROR *** 

296 IFN>" 10THENPR INTTTAB < 14 ) *HM£!RROR MAX 17* I FLASH* ,3 1 PAUSEEtOFF I GOTO2S0 
296 DIMI*(N),V(N),A(N+I) 

366 F0RI-1T0N 
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316 PRINT*»CPE DELL' 06 SETTO *111" ■ *1 1 INPUTI6<I) 

388 FRI NT ‘VALORE DELL ' OGGETTO 'III* ■ I INPUTV(I) 

338 NCXTI 
348 TT»8 
338 F0R1-1T0N 
368 TT»TT*V< 1 > 

3?B (SEKT I 

368 REM** IN1Z IALIZZA PAGINA GRAFICA ** 

388 HIRE88, 13 ICIRCLE280, 180,78,78,1 
488 REM* ALGORITMO DI CALCOLO SETTORI * 

418 AG-B 

488 FORI • 1T0N 

438 AG«AG4366*V< I >/TT 

448 A< I +1 ) «AG 

450 U-.3*<A<I)+A(I + D) 

468 REM* TRACCIA RAGGIO * 

478 AN6L220 ,180, A (Iti), 70, 78,1 
488 REM* FUFERAZIOFC SETTORI * 

498 TEXTSie+eetS IN(U/166*4) , 108-60*COS (U/180*< > ,STR*( I ) , 1 , 1 ,6 
508 REM* VALORE SETTORI * 

318 TEXT8 10450*8 IN(U/188*«) , 108 -5B*C0S<U/1 68*4 ) ,STR8(V (1)),1,1,6 
388 FEXT 

330 REM* TITOLO E LESELA * 

340 TEXT18,S6,*A£GEFOA* ,1 ,1 ,8 
358 TEXT10,3,F6, 1,1,8 
560 LINEO, 13,319, 13,1 
378 F0RI-1T0N 

380 TEX7B,2B4l*10,8TR9(I),t,l ,6 
588 TEXT88, 804 1*10, 1,8 
880 TEXT38 ,204 1*10, I9< 1 > , 1 , 1 ,6 
610 TEXT103, 8041*10, STR*<V(1)), 1,1, 8 
820 NEXT 

630 COPY IREM* SOSTITUIRE CON ‘COPY 1 PER LA STAFFA * 

840 PRINT* i MIMI REM* TORNA ALLA PAGINA TESTO * 

630 PRINT'jJMHWUOI UNA NUOVA ANALISI? (S/N)* 

660 BETA8I IFAS** “THENB60 
676 IFA8" *S“THEWiUN 
680 END 

690 PRINT'^HWAJOI LE ISTRUZIONI (S/N>* 

700 BETA01 IFA8*“ “THEN700 
710 1FA*< >*N" ANOA*< > *3 " THEN700 
780 IFA*"*N*THEF#IETURN 

730 PRINT* JB»UESTO PROGRAMMA PERFETTE DI CALCOLARE "» 

748 PRINT'E DI VISUALIZ2ARE SULLA PA9 INA GRAFICA E’I 
736 PRI NT* SULLA CARTA IL VALORE DEI DATI INTRODOT-*J 
768 PRINT'TI CONFRONTANDOLI TRA DI LORO IN UNA*» 

778 PRI NT* RAPPRESENTAZIOFE GRAFICA.* 

786 PRINT'lMfON SI POSSONO INTRODURRE PIU’ DI 17 DATI.* 

788 PRINT* I DATI INTRODOTTI VENGONO VISUALIZZATI*» 

888 PRI NT ‘FELLA LE GENOA ACCOPPIATI ALL 'OGGETTO*» 

818 PRI NT* AL QUALE SONO RIFERITI E NEL SETTORE*» 

880 PR INTESOLO CON IL VALORE.* 

630 PRINT'lHta l IL PRESENTE PROGRAMMA NECESSITA * 

840 PRINT'MHDEL SIM0N6' BASICI* 

830 PRINTTA8(I0)**^REMI UN TASTO* 

860 OETARt IFA*"* *THENB6B 

870 RETURN 

READY. 
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Un'iniziativa condotta con 
la nota rivista Computer 


PROGRAMMO IN 
BASIC 
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COME SCEGLIERE UN 
COMPUTER 
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UTILITY E ROUTINE 
PER IL 

COMMODORE 64 
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BASIC PER LO 
SPiCTRUM 
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Monitor Commodore e disk drive 1541 
sono le periferiche che tl permettono di 
utilizzare al meglio II tuo computer 
Commodore e al prepararti per II futuro. 

Con II disk drive Commodore, 
memorizzi più velocemente I dati su 
dischetti standard e puoi caricare I 
programmi In un attimo. 

Con II monitor a colori ad alta 
definizione d'immagine puoi evidenziare le 


tue qualità di programmatore, utilizzando 
al massimo le capacità sonore e grafiche 
del tuo computer. 

Monitor e disk drive oggi convengono, 
perchè hanno un prezzo eccezionale, come 
d’abitudine Commodore. Inoltre, proprio 
per dimostrarti quanto puoi fare di più con 
queste periferiche, Commodore tl fa un 
regalo speciale. 

Acquistando monitor o disk drive entro II 



N RECALO SPECALE 



30 novembre 1985, hai insieme, già 
compresi nel prezzo come regalo, il favoloso 
computer-rack creato per ospitare li tuo 
sistema Commodore, oppure I formidabili 
sci del team Commodore Ad venture. 

Due opportunità incredibili ma vere. 

Val subito al tuo negozio Commodore e 
approfitta dell'offerta "Fai dì più col tuo 
Commodore". 

sci: cm 175/ 195- rack: cm 90x90x70 


Qz Commodore 




SicfuM> Dentata—* - Vii Nkcnta* Tomistico 
I * - 21100 Vare* - Tel 0332/229909 

Franco Piccino - Vie Leonardo da Vinci 146 
00145 Rami - Td. 06/5132153 

0510U Temi - TeL 0744/59197 

Micro Cùmmoócn Ctab - Vii Paura 13 » 
20146 MOtiio Tel. 02/427890 

Silvio Put-Ua * Vii Mirarti «5 - 37060 Ca- 
ne! cT Alzano (Vr) - Td. 045/5 12340 

VlflCBM Arddtacene * Pjua Cmntfd 3 * 
20145 Milano - TeL 02/317676 


Pian IjKttki - Via Palestre 50 - 74020 Tom- 
cdla Ctll- Tei 0W/6WO49 

Ckeappt Piai - Vii Bezzec— 9 - ftt tfl> Pnam 
Tei QfTI 1/32111 

Riccardo tari- Vii G. Imperatore 13-00145 
Roma Td. 06/5134603 

Maero Sprtdke - Va Solari 41 -20144 Mila- 
no * Tel 02/4227730 

Manritta Guidilo - Vìi Pugnano 26 * «014 
Ffu-TdL»U/90Z28l 

Ftw» E Jpared * Vk A, Grandi 22 - 22040 
Sifime- Td 031/650713 


nta 25 - 00)60 Canale Monterà!» - Tel 06/ 
W722S 

Km 4 - 00049 Vettori - Td. 06^613370 

Gfippi Montkdtl - Vk XXV Aprile 96 - 
20029 Tutingo (No) - T«L 033 1/0992 1* 

Manritta Corri- Via Alfieri *8 - 03024 Cepta- 
no - Tel. (1775/950613 

Roberto Baccelli - Via Rounini 7 -561IVÌ Pila 
Td IWV44627 

M il» I Siane - Via Cannimi 15 - 05101 
Terni -TeUJ744/3W7 


Ivo T ritiri - V. le Kenneth **-*1053 5 Mina Uta-e F«ntaa - Vi* Civaftare di Vinata 

C, V. (Lei Veneto 2* - t3W0 Goualdo - Td fìR25/ 

401221 

Eneo Cattato- Vìi Dante 42/C - 33065 Marna- 
ci (Po) -Tel. D427/7369I Sante Nad - Vk 14 Lolita 36/A - 50019 

Sesto Fiorentino (Ri - Tei 055/44*1640 

Franco Cuti - Str 6 Luti - 09092 Arborea - 

Tel 0783/489919 A legante Sctartiao - Via Galileo Galilei 22 - 

90145 Palermo *Td, 091/568039 

Remo Ghe»d - P.«a S. Francesco 10 - 52043 

Catti gfion Fiorentino (Ar) - Tel. 0575/650605 Boario M eU» - Via 6. Vinone 22 - U*E3 

Chiarì (To) ~ Tel oÌl/9424950 

«4 Lmt Qvb - Via Roma 10 - WXM9 Somma 

Vesuviana (Ni) {^Fvtd- Vk Vate 2- 20123 Mikno- Tei 

02/592459 

Enrico A n tip orti - Cono Europe 26 - 00127 

Napoli datane* Bratto * Vii Serra di Falco 149 - 

90145 Palermo - Td. 091/574554 

Renato dementi - Vìa Repubblica 64 * 28026 

Omcgru (Noi * Tel. 0323/641354 Zac SaA - Via Umm Sovietica 15 - 50126 

Firenze - Td. 055/600806 

Emilie Fronda - Via Brighmdì 179 - 0310U 

F rotinone * Td, 0773/852495 Dnvfcfc Barati - Via Penarla 9 - 40127 Bota- 

gita -Td. 051/516529 

Stefana Fermi - C.to GfNttio 259 - 10147 

Tori no -Td, 011/296092 Man» Drai - Vk ! Maggio 15 - 56025 Fon- 

tcdefa-TcL 0507/2 12U4 

Lad Glwtotxi - Vk Pauioia 113- 62014 Co- 

m don ij (Mei -Td. 0773/292453 Tmm Miti - V* Tonanmi CT - 35031 

A ha no Terme (IMI - Td 049/*10<*] 

Carta Pena - VkS, di Samara! 61 * 00149 

Roma - Td. 116/5201016 fcnao Mentri - Via Anconetana 4 - 06016 S. 

nummo (Pg) - Td. 075/856676 

MamtmJJteo Tosoni - Via Mazzini K2 - 4013* 

Bologna - Tel. 05 1/344405 PWiro Catana * V« Oriotem/toc. Momevirgi- 


Reta— le Qnagtta - Via Martteratai 2 - 20161 
Milano - TcL 02/6462130 

Statane Coartare - Vk F, Grawgoodi 45 - 
00167 Roma - Td. 06/R323519 

Aanti Lare - Vk Pretina il - 40069 Zola 
Predata (Ba) * Tel- 051/754401 

Pierpaolo Moatardtal - Vii G, Som 15 - 

40033 Caulocctao (Boi -TeL 091/573393 

States Rese * Cto A Podcrti 12 * 16128 
Oemn«-Td. 010/540*71 

Aitane* Mkwri - Vk B. Croce 172 * 65100 
Pevere - Td. 0R5/66891 

FtaaOe Palme * G re S, Teodoro 22/3 - 30173 
Mestre (Va) - Td. 0*1/5058376 

Dito Marocdd - Via Marami XG - 65100 
Pacare - Tei. 085/68352 

Cedane Slcardta - Via Piolo Bcntìvogbo 20 - 
95125 Catania - Td. 095/334402 

Andrta Ctad - Vu Fdnardu M e ragliano 32 - 
00151 Roma - Td. 06/3376977 

Tram Gale - Vk Pape Giovanni XXIII 
32 - 04013 Cava dc‘ Tirreni - Td. 464714 

G, Rfcardl/C Mdmv -Via Carbonaro 55 
U3IC4 Cerraiw (Fr) - TcL 0775/9*535 
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Hardware 

V«nd« par VIC-SO Npwwion» 16 K Ram • 
S»w par utfeart cortwnpoi * "— m ww più 
cartueca. Vando t'm pn i&m « L60 000 e 
kt Slot « L 70.000 Mfcjnzio MeoHra ym. To- 
131 2008S Razzano (Mi) 

Vonéo C-64. floppy dock 1541 « r*g*tntc- 
f# originala e morti mitira**Énti Droghimi a 
Utilità * gioco A LI 200.000 non trottoli 
Q*qq Bramm vii S Wct** te 20091 

Cataro MadtmofMO 
Compro 064, registratore a f oyatfc* a 
L 325.000 I tutto poco usto. PMo Uveo 
targo Promaaai sposi 9 20142 IMI) 

Vando Plus 4, reg i sti stur a, floppy am 
1541. dut joystick td una cartuccia gioco t 
L 1 -000.000 Mtl usato, cado inetta sapori - 
lamanta stampante morghonti ORSI 1Q1 A 
L.BOO.QOQ coma nuova con catooca. evia a 
margarite. Provano Edoardo vm Commarv- 
04 21 20142 (MI) 


Vando C-IGcon rtgistrttom joystick «vari 
giochi « L 400 000 O scambio con C-64 m 
buoni oondtóoni. Pitto Anorea largo Pro» 
mattai Sposi 9 20142 (Mi) 

Vando C-64. re g ó ftu ore, floppy 1541 a 
m o nto Philips 7562 « toatoh vanà nuovo a 
van giochi il luto i LI 400000 trotto* 
Pino Plantari via Vaiare 6730*8 Nardo (LE) 

Vanda disk toro 1541 par l C*M usato 
poco noto vango tasto taaat ad ■tartaoda 
par Tuao n oonlampomnaa di dua tagtot- 
tor Grovv Cotogni via Stremerò 23 IODIO 
Arena (TDl 

Va rido par passaggio a satana supcriora 
c-64 di dua aattìmana con gronda. dttva 
IMI . registratore 1 530 a dua ioysacit a iroi 
giochi a LI 000 000 Mtow Massaro via 
Vanto 23 00138 ROMA 


Vanda VIC-20 pù a apanso na 3/8/16 K 
Firn , regtstrator* , 6 hbn a 6 cartridga a no*- 
fittimi programmi t L350-000. Edy Paiteta- 
rt via Poma 1 18 32010 Fonogna (BU 

Cada in blocco a L33 000 spasa di so*» 
toia aaclutt la ttvM Commmodort Com> 
pulir Club dal numaro 1 al numaro 18 a la 
rivista Commo d o r i dal rumar 0 T ai 9 Mas* 
Simo Magoni via Rod 2/19 17100 <SV) 

laaS* jìi ■ m. u li» ■ ■ ■ ■■ ■ _ „ 

scinco 4sia oi programmi. Musano Stór- 
ti ni via Paflagrinc Mafltuoo 16 00154 
ROMA 

Vando* C om p r o , Rocco Da Franco via 
Asiago 8 8001 1 Bagnara Calabria 

Van do i «guanti numsrf di Commodori 1* 
4-5^8-7-8 al prezzo d L2.000 cadauno, 
Laonardo Alano via Pubbto Ruoto Rutto 10 
00174 ROMA 



TUTTO 

PER LA PULIZIA 
DEL COMPUTER 


cor** i di cruAto, 
Tutti i proóoth io no ofnok 
tnìffttcfi cosa pwMio 4 








In edicola 
questo mese 


Simulazioni e test 
per la didattica 






Roolstmlo H mo abbonamento annuale a Commodoro 

Ho versato oggi usuo il canon# d Un 28.000 a mazzo cfa porta* n* 37952207 
Syr*fr»Édtora #SH-V l#F^agosim 75 - 20 H2 Milano 

O Acdudoa*aagooparSfi2aooot»ìM n* a favori di 


Se vuoi 
abbonarti 


H mio computar fc VtC 20 H C 64 □, «tiro (apaaftcara} 

Ho Z / w ho ' la stampante, ma voglio C comprarla. 
Prwfenaeo predi mm i d gioco G, didattici □, d 1 unirti GL auro 



Cognomi 

CAP I : I I I I gru 


Se vuoi 
coliaborare 


Registratemi lira i collaboratori regolari di Commodore. 

A Molo dì prova vi invio un articolo e la cassetta col programma * 

" di ari vi garantisco l 'assoluta originatiti autofizzandovena la pubblicazione, 

□ Scrivetemi alVindirizzo sottoindicato 

Nome - - — - — — 



JB : 

r.wj.hut'iihird 1 


un consiglio 



Vìa 

Tei. 


CAP I i I 1 l i Città 
Orario _ 




Sono in 


Ho intenzione 

B 


potieteo 

NO 

di acquistare 

■ Vie 20 □ CIBO Plus 4 r C6C 

□ 

□ 

□ 

m 


□ 

O 

O 

m Floppy O 

quale: IMI □ altro 

□ 

D 

□ 

* Stampante □ 

quàlo MPS801 □ altro 

O 

□ 

o 

m Fiottar □ 

quale: 1520 Q altro 

□ 

D 

□ 

■ Registratore □ 

quale: 1530 □ almo 

□ 

a 

o 


. Televisore Q, TV44onttorQ Monitor d CoÉpreQ 9/N D 


Cognome 

cap. LLLLXJ Ctn* 





1 


; 

Spett.le rivista ■ 

Commodore ■ 

Systems Editoriale ■ 

£ * ■ 
g v.le Famagosta, 75 ■ 

I 20142 Milano • 

s : 

Si, voglio 
abbonarmi 

■ ■ 

Spett.le rivista ■ 

Commodore I 

Systems Editoriale J 

.£ ■ 

| v.le Famagosta, 75 ■ 

f 20142 Milano 

o : 

Si, voglio 
collaborare 

« ■ 

| Spett.le rivista ■ E 

Commodore ■ 

Systems Editoriale * Si, chiedo 

| ■ consiglio 

§ v.le Famagosta, 75 

I 20142 Milano ■ 

« . ■ 

° ■ 

s ■ 

Spett.le rivista ■ 

f Commodore ■ 

Systems Editoriale ■ Si, voglio 

s ■ votare 

£ v.le Famagosta, 75 ” 

I 20142 Milano l 

a 

Spett.le rivista 

Commodore 

| Systems Editoriale 

v.le Famagosta, 75 

20142 Milano 

■ 

■ 

B 

i 

l Si vendo/ 

i 


WMA 

OMA 

OMA 

OMA 


OMA 


26-29 NOVEMBRE 1985 

PALAZZO DEI CONGRESSI DI ROMA EUR 

EDP USA ROMA’85 

UNA SEDE RAPPRESENTATIVA PER 
UNA MOSTRA DI PRESTIGIO 

Mfflpf* Er rò Qomti o EDP USA WÙ MAcha hìm 
*■{0*^1 "1 qqìq d tBrjWWI pa r I nwAD mTWi OnMMMIMA 
x* K£. A rti tin i in m ai i if — Puaraa 2 000 mq. d M p ada c r n 
s P^oocro # a ftuov* yopcn » «curi Mia qu* aaramo «OH oggaac 
d M £crn*gm a ca ta na raamaitonaN 

IVEWIRt: - ARCWTtTTURl **R COMUNE 

! cormuiTOfa I GU smNDARD' 

Coorgnasra Ptpl Q at u i W n Li Me* 




J7» 


Eaortl talari * «tv#* traavv 

La quota di pamopuo^. eh# Mvi* p»w*t aura 11 30 «wtfntr» ■ fl 
NMMo * USWC, * d U 190.000 er eia* 

L t yM iO aia moiftì è narvalo agi opruon MI aattc*a 
G» «luMiii aono ftnwnM MM rnaKkv 0# eiOfrt 30 a 29 nov«fnbr*pfavli 
prffWNNpni * capfflno « uà t»ghano Ingraato * ul 3 00Q 



VlAQATDUUGJQAa 3fr<S ULANO 


• • 


HP DATA MEMORIES 
LA TECNOLOGIA DEL DOMANI... OGGI ! 




CAMBIA IN MEGLIO 


<1& 

MEE 


Memorie 

per Elaboratori Elettronici s.p.A. 


r*r Cantri DaàùranQfl* Diti 
Soft Aiuto.** 20 "44 Vi* 6 cft. 29 

T#4 J9AES41 f4 !■ '(Mtrij. Tel*. 32*429 UÉE * I 
FU. ih m ^gc'.'tt i/iijno targamo ■ TofiftO 1 
itali* Pitfn* . 60*090* . Puf!» ■ 

fio^a - Napoli C*i*n<* - * B**< G*noti 

Scuoto Vlestre - 



